0.pre7.59:

[sbcl.git] / src / code / x86-vm.lisp

diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp
index f5e8e76..26d8dc4 100644 (file)
--- a/src/code/x86-vm.lisp
+++ b/src/code/x86-vm.lisp
@@ -276,7 +276,7 @@
       (/hexstr length)
       (/hexstr vector)
       (copy-from-system-area pc (* sb!vm:byte-bits 2)
-                            vector (* sb!vm:word-bits
+                            vector (* sb!vm:n-word-bits
                                       sb!vm:vector-data-offset)
                             (* length sb!vm:byte-bits))
       (let* ((index 0)