From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 31 Mar 2018 07:02:50 +0000 (-0700)
Subject: Fix typo in previous change.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~148
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=38f67ae1633472442cf2ae3c088e89ab4b9a7bc3;p=mit-scheme.git

Fix typo in previous change.
---

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