diff --git a/compiler/sparc/values.lisp b/compiler/sparc/values.lisp
index 2a965067a38fc2c503d864485cb2f15706dffdbc..a82d79723f668bde7ded7ff634e1c072156fb7bb 100644
--- a/compiler/sparc/values.lisp
+++ b/compiler/sparc/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/sparc/values.lisp,v 1.3 1993/10/07 11:41:20 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/values.lisp,v 1.4 1993/12/02 18:50:43 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -102,6 +102,7 @@
   (:temporary (:sc any-reg :from (:argument 0)) src)
   (:temporary (:sc any-reg :from (:argument 2)) dst)
   (:temporary (:sc descriptor-reg :from (:argument 1)) temp)
+  (:temporary (:sc any-reg) i)
   (:results (start :scs (any-reg))
 	    (count :scs (any-reg)))
   (:generator 20
@@ -117,9 +118,10 @@
     (inst move start csp-tn)
     (inst move dst csp-tn)
     (inst add csp-tn count)
+    (inst move i count)
     LOOP
-    (inst subcc count 4)
-    (inst ld temp src count)
+    (inst subcc i 4)
+    (inst ld temp src i)
     (inst b :ne loop)
-    (inst st temp dst count)
+    (inst st temp dst i)
     DONE))