X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=0e73a960cd9754ac3d625586055f702bfcd266cf;hb=545fa4548b327804cf78afe38a2ecd94ced86162;hp=1539001d7ae7345a42d0021c936988731bfe7ebf;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 1539001..0e73a96 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -413,7 +413,7 @@
 	  ;; Blast the string into place.
 	  (sb-kernel:copy-to-system-area (the simple-string s)
 					 (* sb-vm:vector-data-offset
-					    sb-vm:word-bits)
+					    sb-vm:n-word-bits)
 					 string-sap 0
 					 (* (1+ n) sb-vm:byte-bits))
 	  ;; Blast the pointer to the string into place.
@@ -713,7 +713,7 @@
 				   (sb-kernel:copy-from-system-area
 				    (alien-sap buf) 0
 				    string (* sb-vm:vector-data-offset
-					      sb-vm:word-bits)
+					      sb-vm:n-word-bits)
 				    (* count sb-vm:byte-bits))
 				   (write-string string stream
 						 :end count)))))))))))