Fix typo in previous change.

diff --git a/src/edwin/string.scm b/src/edwin/string.scm
index 17ac5fc59ad057708a78fbf4b4a3770180ba7ffe..465c7639fe374d601b5eb88f8c0fa3dc859a6865 100644 (file)
--- 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))