Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 5043)
+++ /trunk/ccl/lib/macros.lisp	(revision 5044)
@@ -1244,5 +1244,5 @@
 
 (defmacro %char-code (c) `(char-code (the character ,c)))
-(defmacro %code-char (i) `(code-char (the (unsigned-byte 16) ,i)))
+(defmacro %code-char (i) `(code-char (the (mod ,char-code-limit) ,i)))
 
 (defmacro %izerop (x) `(eq ,x 0))