diff --git a/brag/brag/codegen/codegen.rkt b/brag/brag/codegen/codegen.rkt
index fa985ba..f21a2bc 100755
--- a/brag/brag/codegen/codegen.rkt
+++ b/brag/brag/codegen/codegen.rkt
@@ -158,7 +158,7 @@
                (let loop ([x (syntax->datum (parse x))])
                  (cond
                    [(list? x) (map loop x)]
-                   [(char? x) (format "~a" x)]
+                   [(char? x) (string x)]
                    [else x])))))))]))