Index: /trunk/ccl/level-0/nfasload.lisp
===================================================================
--- /trunk/ccl/level-0/nfasload.lisp	(revision 708)
+++ /trunk/ccl/level-0/nfasload.lisp	(revision 709)
@@ -375,8 +375,9 @@
          (element-count (%fasl-read-size s))
          (size-in-bytes (subtag-bytes subtag element-count))
-         (vector (%alloc-misc element-count subtag)))
+         (vector (%alloc-misc element-count subtag))
+         (byte-offset (or #+ppc32-target (if (= subtag ppc32::subtag-double-float-vector) 4) 0)))
     (declare (fixnum subtag element-count size-in-bytes))
     (%epushval s vector)
-    (%fasl-read-n-bytes s vector 0 size-in-bytes)
+    (%fasl-read-n-bytes s vector byte-offset size-in-bytes)
     (when (= subtag ppc32::subtag-code-vector)
       (%make-code-executable vector))