Fix typo.

XXX Obviously this needs an automatic test!

From mejja.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 521c74d9092bd44195cfff7b1c613940c630e9ab..7ab0a4b4bd9f820efb53f6e99a2e3d786be7107a 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