From 6e5abde4895290bac6829377069996d57deca07f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 22 Apr 2017 17:53:53 -0700
Subject: [PATCH] Fix typo causing memory corruption.

---
 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 3607bfd17..eab35875c 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -206,7 +206,7 @@ USA.
 (define (immutable-ustring-allocate n max-cp)
   (cond ((fix:< max-cp #x100)
 	 (let ((s (%ustring-allocate (fix:+ n 1) n 1)))
-	   (ustring-in-nfc! string)
+	   (ustring-in-nfc! s)
 	   (if (fix:< max-cp #xC0)
 	       (ustring-in-nfd! s))
 	   (ustring1-set! s n #\null)	;zero-terminate for C
-- 
2.25.1