From 61fb24fff030fc77e88ef67cfc8cc7973dbaaa64 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Apr 2017 22:06:25 -0700
Subject: [PATCH] Fix typo.

---
 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 d2762af60..17ac5fc59 100644
--- 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)
-- 
2.25.1