Change symbols to be in NFC.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 83850a856e62aba54f187f32a410dfc770321628..56f778a8a7e007247bd46e0f6755fb7abfe4869f 100644 (file)
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -505,10 +505,11 @@ USA.
          #t))))
 
 (define (string-canonical-foldcase string)
-  (let ((nfd (string->nfd string)))
-    (if (nfd-string-case-folded? nfd)
-       nfd
-       (string->nfd (string-foldcase string)))))
+  (string->nfc
+   (let ((nfd (string->nfd string)))
+     (if (nfd-string-case-folded? nfd)
+        nfd
+        (string-foldcase string)))))
 \f
 ;;;; Normalization