diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 2a1643b..b8969c0 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -195,7 +195,7 @@
   (define ($make-custom-textual-port attrs init-size id 
             read! write! get-position set-position! close buffer-size)
     (let ([bv (make-string buffer-size)])
-      ($make-port 0 init-size bv 0 #f #f attrs id read! write! get-position
+      ($make-port 0 init-size bv 0 #t #f attrs id read! write! get-position
                   set-position! close)))
 
   (define (make-custom-binary-input-port id 
diff --git a/scheme/last-revision b/scheme/last-revision
index 3acca38..9d63033 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1221
+1222