Fix typo causing memory corruption.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 3607bfd17a549534f4de3efcb034a3f39cb249e8..eab35875c8b026e5dc362f5a4c4e71610b737378 100644 (file)
--- 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