Index: /branches/purify/source/lib/nfcomp.lisp
===================================================================
--- /branches/purify/source/lib/nfcomp.lisp	(revision 13215)
+++ /branches/purify/source/lib/nfcomp.lisp	(revision 13216)
@@ -1860,6 +1860,6 @@
       (declare ((mod #x110000) code))
       (cond ((>= code #x10000) (incf extra 3))
-            ((>= code #x800) (incf code 2))
-            ((>= code #x80) (incf code 1))))))
+            ((>= code #x800) (incf extra 2))
+            ((>= code #x80) (incf extra 1))))))
 
 (defun fasl-out-vstring (str)
Index: /branches/purify/source/xdump/xfasload.lisp
===================================================================
--- /branches/purify/source/xdump/xfasload.lisp	(revision 13215)
+++ /branches/purify/source/xdump/xfasload.lisp	(revision 13216)
@@ -1189,5 +1189,5 @@
   (declare (fixnum nchars nextra))
   (if (eql 0 nextra)
-    (dotimes (i nextra)
+    (dotimes (i nchars)
       (setf (u32-ref v (+ o (* i 4) *xload-target-misc-data-offset*))
             (%fasl-read-byte s)) )