From 5dbde4ce445eee4b2c0d605ee2b86ce7990058bc Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Apr 2017 23:33:12 -0700
Subject: [PATCH] Tweak.

---
 src/runtime/genio.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.25.1