From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 Apr 2017 06:33:12 +0000 (-0700)
Subject: Tweak.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~129
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5dbde4ce445eee4b2c0d605ee2b86ce7990058bc;p=mit-scheme.git

Tweak.
---

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index 7a0310887..de7e932dc 100644
--- 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)