Index: /trunk/ccl/xdump/xfasload.lisp
===================================================================
--- /trunk/ccl/xdump/xfasload.lisp	(revision 5055)
+++ /trunk/ccl/xdump/xfasload.lisp	(revision 5056)
@@ -1107,4 +1107,12 @@
       str)))
 
+(defxloadfaslop $fasl-nvstr (s)
+  (let* ((n (%fasl-read-count s)))
+    (multiple-value-bind (str v o) (xload-make-ivector *xload-readonly-space* :simple-string n)
+      (%epushval s str)
+      (dotimes (i n)
+        (setf (u8-ref v (+ o i *xload-target-misc-data-offset*))
+              (%fasl-read-count s)))
+      str)))
 
 ;;; Allegedly deprecated.
@@ -1166,6 +1174,12 @@
   (%xload-fasl-vmake-symbol s))
 
+(defxloadfaslop $fasl-nvmksym (s)
+  (%xload-fasl-nvmake-symbol s))
+
 (defxloadfaslop $fasl-vmksym-special (s)
   (%xload-fasl-vmake-symbol s t))
+
+(defxloadfaslop $fasl-nvmksym-special (s)
+  (%xload-fasl-nvmake-symbol s t))
 
 (defun %xload-fasl-vintern (s package &optional idx)