Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 14226)
+++ /trunk/source/lib/macros.lisp	(revision 14227)
@@ -1327,7 +1327,6 @@
 
 
-
 (defmacro %char-code (c) `(char-code (the character ,c)))
-(defmacro %code-char (i) `(code-char (the (mod 256) ,i)))
+(defmacro %code-char (i) `(code-char (the (mod #.char-code-limit) ,i)))
 
 (defmacro %izerop (x) `(eq ,x 0))