diff --git a/src/reader.rls b/src/reader.rls
index 0c95e7c..0e871af 100644
--- a/src/reader.rls
+++ b/src/reader.rls
@@ -275,7 +275,9 @@
                         (next-char)
                         (cdr item))])]
               [else 
-                 current-char]))
+                 (let ([ch current-char])
+                   (next-char)
+                   ch)]))
 
           (let ([ch (read-one-char)])
             (if ch