Index: /trunk/ccl/level-0/nfasload.lisp
===================================================================
--- /trunk/ccl/level-0/nfasload.lisp	(revision 5248)
+++ /trunk/ccl/level-0/nfasload.lisp	(revision 5249)
@@ -362,5 +362,5 @@
 
 (deffaslop $fasl-char (s)
-  (%epushval s (code-char (%fasl-read-byte s))))
+  (%epushval s (code-char (%fasl-read-count s))))
 
 ;;; Deprecated
Index: /trunk/ccl/lib/nfcomp.lisp
===================================================================
--- /trunk/ccl/lib/nfcomp.lisp	(revision 5248)
+++ /trunk/ccl/lib/nfcomp.lisp	(revision 5249)
@@ -1453,5 +1453,5 @@
   (let ((code (%char-code char)))
     (fasl-out-opcode $fasl-char char)
-    (fasl-out-byte code)))
+    (fasl-out-count code)))
 
 ;;; Always write big-endian.
Index: /trunk/ccl/xdump/xfasload.lisp
===================================================================
--- /trunk/ccl/xdump/xfasload.lisp	(revision 5248)
+++ /trunk/ccl/xdump/xfasload.lisp	(revision 5249)
@@ -1107,5 +1107,5 @@
 ;;; fasl-char: maybe epush, return target representation of BASE-CHARACTER
 (defxloadfaslop $fasl-char (s)
-  (let* ((code (%fasl-read-byte s))
+  (let* ((code (%fasl-read-count s))
          (target-char (logior *xload-target-subtag-char*
                               (ash code *xload-target-charcode-shift*))))