diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 37d6589e..145f2ebe 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -71,6 +71,14 @@
                      ((equal? (car head) #\newline)
                       (next (cdr head) 
                             (cons #\n (cons #\\ tail))))
+                     ((equal? (car head) #\alarm)
+                      (next (cdr head) (cons #\a (cons #\\ tail))))
+                     ((equal? (car head) #\backspace)
+                      (next (cdr head) (cons #\b (cons #\\ tail))))
+                     ((equal? (car head) #\return)
+                      (next (cdr head) (cons #\r (cons #\\ tail))))
+                     ((equal? (car head) #\tab)
+                      (next (cdr head) (cons #\t (cons #\\ tail))))
                      (else
                        (next (cdr head) (cons (car head) tail)))))))
     (next (string->list str) '())))