Use correct case-folding algorithm for symbols.

diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 735952c47b14b8852b0ee26abfbada823b3de826..6b8e5bc820da2ef89ca34f460be9154e867bead5 100644 (file)
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -70,16 +70,16 @@ USA.
   (string->symbol (%ustring* objects 'symbol)))
 
 (define (intern string)
-  (string->symbol (cold-load-downcase string)))
+  (string->symbol (cold-load-foldcase string)))
 
 (define (intern-soft string)
-  ((ucode-primitive find-symbol) (string->utf8 (cold-load-downcase string))))
+  ((ucode-primitive find-symbol) (string->utf8 (cold-load-foldcase string))))
 
-(define (cold-load-downcase string)
+(define (cold-load-foldcase string)
   (if (ascii-string? string)
       ;; Needed during cold load.
       (legacy-string-downcase string)
-      (ustring-downcase string)))
+      (ustring-foldcase string)))
 
 (define (symbol-name symbol)
   (if (not (symbol? symbol))