Fix typo.

diff --git a/src/edwin/string.scm b/src/edwin/string.scm
index d2762af60004ae02faa0d672e8720dd178358537..17ac5fc59ad057708a78fbf4b4a3770180ba7ffe 100644 (file)
--- a/src/edwin/string.scm
+++ b/src/edwin/string.scm
@@ -581,7 +581,7 @@ USA.
     (do ((i start (fix:+ i 1))
         (j 0 (fix:+ j 1)))
        ((not (fix:< i end)))
-      (string-set! string j (char->integer (bytevector-u8-ref bv i))))
+      (string-set! string j (integer->char (bytevector-u8-ref bv i))))
     string))
 
 (define (textual-input-port->binary textual-port)