diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 9de2c1e..b86cea4 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -1007,6 +1007,8 @@
       ;;; returns #t if port is eof, #f otherwise
       (unless (input-port? p) 
         (die who "not an input port" p))
+      (when ($port-closed? p)
+        (die who "port is closed" p))
       (let ([tr ($port-transcoder p)])
         (unless tr 
           (die who "not a textual port" p))
diff --git a/scheme/last-revision b/scheme/last-revision
index 45ff3ac..f44a8bb 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1531
+1532