Index: /trunk/ccl/level-0/l0-misc.lisp
===================================================================
--- /trunk/ccl/level-0/l0-misc.lisp	(revision 5301)
+++ /trunk/ccl/level-0/l0-misc.lisp	(revision 5302)
@@ -45,7 +45,12 @@
        ((= i n) u8-vector)
     (declare (fixnum i))
-    (setf (aref u8-vector dest-idx) (%scharcode string source-idx))
-    (incf source-idx)
-    (incf dest-idx)))
+    (let* ((char (schar string source-idx))
+           (code (char-code char)))
+      (declare (type (mod #x11000) code))
+      (if (> code #xff)
+        (setq code (char-code #\?)))
+      (setf (aref u8-vector dest-idx) code)
+      (incf source-idx)
+      (incf dest-idx))))