Tweak.

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index 7a0310887e3c57f943d1af50942e5ca53cfb2dd7..de7e932dccb0f801fff39c6ae1e1c0eaa99672f7 100644 (file)
--- a/src/runtime/genio.scm
+++ b/src/runtime/genio.scm
@@ -48,7 +48,7 @@ USA.
     port))
 
 (define (binary->textual-port binary-port)
-  (make-generic-i/o-port binary-port))
+  (make-generic-i/o-port binary-port (default-object) 'binary->textual-port))
 
 (define (source-type source)
   (cond ((not source) #f)