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