Fix typo from earlier commit.

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index a113e298544f4a8c0674b8a65bffc924122c0c6e..962fb21c01257c898d278809b3f81e502b175fcf 100644 (file)
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -631,15 +631,15 @@ USA.
     ((1)
      (do ((i 0 (fix:+ i 1)))
         ((not (fix:< i count)) unspecific)
-       (cp1-set! result i (vector-ref chars i))))
+       (cp1-set! result i (char->integer (vector-ref chars i)))))
     ((2)
      (do ((i 0 (fix:+ i 1)))
         ((not (fix:< i count)) unspecific)
-       (cp2-set! result i (vector-ref chars i))))
+       (cp2-set! result i (char->integer (vector-ref chars i)))))
     (else
      (do ((i 0 (fix:+ i 1)))
         ((not (fix:< i count)) unspecific)
-       (cp3-set! result i (vector-ref chars i)))))
+       (cp3-set! result i (char->integer (vector-ref chars i))))))
   result)
 \f
 (define (%make-string-builder initial-buffer-length)