Index: /branches/ia32/level-0/nfasload.lisp
===================================================================
--- /branches/ia32/level-0/nfasload.lisp	(revision 8214)
+++ /branches/ia32/level-0/nfasload.lisp	(revision 8215)
@@ -503,5 +503,5 @@
          (size-in-bytes (subtag-bytes subtag element-count))
          (vector (%alloc-misc element-count subtag))
-         (byte-offset (or #+ppc32-target (if (= subtag ppc32::subtag-double-float-vector) 4) 0)))
+         (byte-offset (or #+32-bit-target (if (= subtag target::subtag-double-float-vector) 4) 0)))
     (declare (fixnum subtag element-count size-in-bytes))
     (%epushval s vector)
@@ -563,14 +563,14 @@
   #+64-bit-target
   (fasl-read-ivector s target::subtag-double-float-vector)
-  #+ppc32-target
+  #+32-bit-target
   (let* ((element-count (%fasl-read-count s))
-         (size-in-bytes (subtag-bytes ppc32::subtag-double-float-vector
+         (size-in-bytes (subtag-bytes target::subtag-double-float-vector
                                       element-count))
          (vector (%alloc-misc element-count
-                              ppc32::subtag-double-float-vector)))
+                              target::subtag-double-float-vector)))
     (declare (fixnum subtag element-count size-in-bytes))
     (%epushval s vector)
-    (%fasl-read-n-bytes s vector (- ppc32::misc-dfloat-offset
-                                    ppc32::misc-data-offset)
+    (%fasl-read-n-bytes s vector (- target::misc-dfloat-offset
+                                    target::misc-data-offset)
                         size-in-bytes)
     vector))