diff --git a/sexc.scm b/sexc.scm
index 7e28894..89e6815 100644
--- a/sexc.scm
+++ b/sexc.scm
@@ -10,8 +10,14 @@
         tree)
 
 (define (unkebabify sym)
-  (string->symbol
-   (string-translate (symbol->string sym) #\- #\_)))
+  (case sym
+    ((-) sym)
+    ((--) sym)
+    ((->) sym)
+    ((-=) sym)
+    (else
+     (string->symbol
+      (string-translate (symbol->string sym) #\- #\_)))))
 
 (define (atom-to-fmt-c atom)
   (case atom