diff --git a/compiler/amd64/values.lisp b/compiler/amd64/values.lisp
index dc272da6075540ab54a5ba2709e7838398b64011..a56b3f4d51a3c46e3f5772c24e2b7457a2a977af 100644
--- a/compiler/amd64/values.lisp
+++ b/compiler/amd64/values.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/values.lisp,v 1.2 2004/07/27 23:28:41 cwang Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/values.lisp,v 1.3 2004/07/28 19:22:27 cwang Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -79,7 +79,8 @@
 
     DONE
     (inst mov count start)		; start is high address
-    (inst sub count rsp-tn)))		; stackp is low address
+    (inst sub count rsp-tn)		; stackp is low address
+    (inst shr count 1))) ; this is unnecessary if we use 4-bit low-tag
 
 ;;; Copy the more arg block to the top of the stack so we can use them
 ;;; as function arguments.