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

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index c3df7bc7d15ef56b3e2201d5ad1463f0e57e571a..d68bd9ddac025a4dc831153dff8d550c9eab3aab 100644 (file)
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -164,7 +164,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))