From 38f67ae1633472442cf2ae3c088e89ab4b9a7bc3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 31 Mar 2018 00:02:50 -0700
Subject: [PATCH] Fix typo in previous change.

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

diff --git a/src/edwin/string.scm b/src/edwin/string.scm
index 17ac5fc59..465c7639f 100644
--- a/src/edwin/string.scm
+++ b/src/edwin/string.scm
@@ -611,7 +611,7 @@ USA.
   (define (write-bytes bv start end)
     (do ((i start (fix:+ i 1)))
 	((not (fix:< i end)))
-      (write-char (bytevector-u8-ref bv i) textual-port)))
+      (write-char (integer->char (bytevector-u8-ref bv i)) textual-port)))
 
   (define (close)
     (close-port textual-port))
-- 
2.25.1