From a9da844a46ecb4e1564a2bafcbaafe5e609edcf3 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Fri, 7 Nov 2008 21:53:55 -0500
Subject: [PATCH] - fixed minor bug when reading an identifier from a port with
 an   invalid unicode decoding sequence.

---
 scheme/ikarus.reader.ss | 3 ++-
 scheme/last-revision    | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

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