X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fx86-vm.lisp;h=26d8dc49eaafe987f0f58f62d429ebd92721ddc0;hb=545fa4548b327804cf78afe38a2ecd94ced86162;hp=f5e8e76adbafcff46db13187555f442864743320;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp
index f5e8e76..26d8dc4 100644
--- 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)