Index: /trunk/ccl/lib/nfcomp.lisp
===================================================================
--- /trunk/ccl/lib/nfcomp.lisp	(revision 707)
+++ /trunk/ccl/lib/nfcomp.lisp	(revision 708)
@@ -1197,5 +1197,5 @@
              (if (= typecode ppc32::subtag-double-float-vector)
                ; Account for alignment word
-               (fasl-out-ivect exp 4 (the fixnum (- nb 4)))
+               (fasl-out-ivect exp 4 nb)
                (if (= out-typecode ppc32::subtag-code-vector)
                  (fasl-out-codevector exp nb)