From c882cc24e78335fbf7fd6a96acb2a7f34ba676d1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Apr 2017 22:18:57 -0700
Subject: [PATCH] Fix typo.

---
 src/runtime/ustring.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.25.1