diff --git a/encoding-reader-simple.scm b/encoding-reader-simple.scm
index 384da36..2b2c3ac 100644
--- a/encoding-reader-simple.scm
+++ b/encoding-reader-simple.scm
@@ -36,7 +36,7 @@
       (read-char* (lambda (c) (not (eqv? c #\newline)))))
     (define (skip-white-comm)
       (cond ((read-char? #\;) (read->eol) (skip-white-comm))
-            ((read-char* char-whitespace?) (skip-white-comm))
+            ((read-char? char-whitespace?) (skip-white-comm))
             (else #f)))
     (define (read-lexeme)
       (skip-white-comm)