diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 8a0c6bd..023f8ed 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -711,9 +711,9 @@
           (unless (fixnum? c1)
             (die who "invalid return value from read! procedure" c1))
           (cond
-            [(fx>= j 0)
-             (unless (fx<= j max)
-               (die who "read! returned a value out of range" j))
+            [(fx>= c1 0)
+             (unless (fx<= c1 max)
+               (die who "read! returned a value out of range" c1))
              ($set-port-index! p 0)
              ($set-port-size! p (fx+ c1 c0))
              c1]
@@ -837,7 +837,7 @@
     (define (lookahead-char-utf8-mode p who)
       (define (do-error p who)
         (case (transcoder-error-handling-mode ($port-transcoder p))
-          [(ignore)  (get-char p)]
+          [(ignore)  (lookahead-char p)]
           [(replace) #\xFFFD]
           [(raise)
            (raise (make-i/o-decoding-error p))]
diff --git a/scheme/last-revision b/scheme/last-revision
index 34f46ed..0262e5e 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1504
+1506