diff --git a/compiler/mips/memory.lisp b/compiler/mips/memory.lisp
index 5fcf2820ab75879ba3692b80af0e9d0961c3c3e1..68ebf0f9eecd9cc85acc445be044ea067fa3a076 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.3 1990/02/18 02:22:44 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.4 1990/03/22 18:44:33 wlott Exp $
 ;;;
 ;;;    This file contains the MIPS definitions of some general purpose memory
 ;;; reference VOPs inherited by basic memory reference operations.
@@ -132,8 +132,9 @@
 		`((inst srl lip index ,shift)
 		  (inst add lip lip object)))
 	  (inst ,op value lip (- (ash offset word-shift) lowtag))
-	  ,@(when write-p
-	      `((move result value))))))))
+	  ,(if write-p
+	       '(move result value)
+	       '(nop)))))))
 
 (define-indexer word-index-ref nil lw 0)
 (define-indexer word-index-set t sw 0)