Index: /trunk/ccl/lib/chars.lisp
===================================================================
--- /trunk/ccl/lib/chars.lisp	(revision 5294)
+++ /trunk/ccl/lib/chars.lisp	(revision 5295)
@@ -289,5 +289,5 @@
                    str)))
               ((and (< code #x100)(graphic-char-p c)) nil)
-              (t (format nil "U+~x" code))))))
+              (t (format nil "U+~4,'0x" code))))))