ucd-slc-value &c. return chars, not fixnums.

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index cdf0563e1aca2a59ff4851ca7ec53d02953a1a44..5ee828b1505c5f3b795dc589bb20fefce460e1c8 100644 (file)
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -161,7 +161,7 @@ USA.
      (lambda (char)
        (if (fix:= 0 (char-bits char))
           (mapper char)
-          (%make-char (mapper (%make-char (char-code char) 0))
+          (%make-char (char-code (mapper (%make-char (char-code char) 0)))
                       (char-bits char)))))
 
    (set! char-downcase (char-mapper ucd-slc-value))