diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index dcc47c2..f613068 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -198,7 +198,9 @@
       (error who "read! is not a procedure" read!))
     (unless (or (procedure? close) (not close))
       (error who "close should be either a procedure or #f" close))
-    ($make-custom-binary-port 0 id read! #f get-position
+    ($make-custom-binary-port 
+      (fxior fast-get-tag fast-get-byte-tag)
+      id read! #f get-position
       set-position! close 256))
 
   (define (make-custom-binary-output-port id 
diff --git a/scheme/last-revision b/scheme/last-revision
index 1f8248c..4c11389 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1212
+1213