Convert string to NFC prior to hashing.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index b468023eea896ef261417c8605fb1c7b9004ba70..cb3bb3b21f8334cd81c2f220e2f1df555e7604b0 100644 (file)
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -1911,7 +1911,7 @@ USA.
              string))
 
 (define (string-hash string #!optional modulus)
-  (let ((string* (string-for-primitive (string->nfd string))))
+  (let ((string* (string-for-primitive (string->nfc string))))
     (if (default-object? modulus)
        ((ucode-primitive string-hash) string*)
        ((ucode-primitive string-hash-mod) string* modulus))))