From 88b082cadbfcf4c98bb1c9ac368b43821fbe8ac3 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 22 Apr 2017 14:27:44 +0000
Subject: [PATCH] Fix typo.

XXX Obviously this needs an automatic test!

From mejja.
---
 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 521c74d90..7ab0a4b4b 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