0.pre7.59:

[sbcl.git] / src / compiler / x86 / insts.lisp

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index d9dca7c..f93d920 100644 (file)
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -1787,7 +1787,7 @@
           (values 0 (1+ length) nil nil))
          (t
           (sb!kernel:copy-from-system-area sap (* byte-bits (1+ offset))
-                                           vector (* word-bits
+                                           vector (* n-word-bits
                                                      vector-data-offset)
                                            (* length byte-bits))
           (collect ((sc-offsets)