diff --git a/compiler/mips/memory.lisp b/compiler/mips/memory.lisp
index b0ccacf6ee0fe07e9625ea588246d9f483ac601e..49b306cacb395f63936ce161ef212ad7484f59e6 100644
--- a/compiler/mips/memory.lisp
+++ b/compiler/mips/memory.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.5 1990/03/29 16:34:03 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.6 1990/03/29 21:51:56 wlott Exp $
 ;;;
 ;;;    This file contains the MIPS definitions of some general purpose memory
 ;;; reference VOPs inherited by basic memory reference operations.
@@ -113,7 +113,7 @@
 		'((value :scs (any-reg descriptor-reg) :target result))))
      (:temporary (:scs (interior-reg) :type interior) lip)
      ,@(unless (zerop shift)
-	 `((:temporary (:scs (non-descriptor-reg) :type random) offset)))
+	 `((:temporary (:scs (non-descriptor-reg) :type random) temp)))
      (:results (,(if write-p 'result 'value)
 		:scs (any-reg descriptor-reg)))
      (:variant-vars offset lowtag)
@@ -131,8 +131,8 @@
 	 (t
 	  ,@(if (zerop shift)
 		`((inst add lip object index))
-		`((inst srl offset index ,shift)
-		  (inst add lip offset object)))
+		`((inst srl temp index ,shift)
+		  (inst add lip temp object)))
 	  (inst ,op value lip (- (ash offset word-shift) lowtag))
 	  ,(if write-p
 	       '(move result value)