Fix typo.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index e90e15092a3d2ecf179cf0986407f980655f50ec..012487ad05dafb5be6564054f699b32f48e944db 100644 (file)
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -76,7 +76,7 @@ USA.
     (if (not (default-object? char))
        (do ((i 0 (fix:+ i 1)))
            ((not (fix:< i k)))
-         (%full-string-set! string char)))
+         (%full-string-set! string i char)))
     string))
 
 (define-integrable (%get-flags string)