From 61b6a76205149ebe630dcc4d543d7daee5ca7d8c Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Thu, 27 May 2010 23:11:08 -0500
Subject: [PATCH] Fix a bug in (read-string) which affects non-special
 characters.

---
 src/reader.rls | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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