From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Apr 2017 05:18:57 +0000 (-0700)
Subject: Fix typo.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~46
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c882cc24e78335fbf7fd6a96acb2a7f34ba676d1;p=mit-scheme.git

Fix typo.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index e90e15092..012487ad0 100644
--- 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)