diff --git a/scheme/ikarus.reader.ss b/scheme/ikarus.reader.ss
index e47be29..d938700 100644
--- a/scheme/ikarus.reader.ss
+++ b/scheme/ikarus.reader.ss
@@ -113,7 +113,8 @@
         (cond
          [(eof-object? c) ls]
          [(subsequent? c)
-          (tokenize-identifier (cons (read-char p) ls) p)]
+          (read-char p)
+          (tokenize-identifier (cons c ls) p)]
          [(delimiter? c)
           ls]
          [(char=? c #\\)
diff --git a/scheme/last-revision b/scheme/last-revision
index d1b8e2f..8d0d61d 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1660
+1661