Index: /trunk/ccl/lib/chars.lisp
===================================================================
--- /trunk/ccl/lib/chars.lisp	(revision 5182)
+++ /trunk/ccl/lib/chars.lisp	(revision 5183)
@@ -293,5 +293,5 @@
                str)))
           ((and (< code #x100)(graphic-char-p c)) nil)
-          (t nil))))
+          (t (format nil "U+~x" code)))))