diff --git a/compiler/mips/array.lisp b/compiler/mips/array.lisp
index da783ad86d292703571b6f770babdb186ca1ade4..80bdd0814d1ef32c7fe336502b4d54936be559c8 100644
--- a/compiler/mips/array.lisp
+++ b/compiler/mips/array.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.50 1998/07/24 17:22:34 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.51 1999/05/29 17:46:39 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -529,6 +529,7 @@
     (inst addu lip object index)
     (inst addu lip index)
     (inst addu lip index)
+    (inst addu lip index)
     (let ((real-tn (complex-double-reg-real-tn value)))
       (ld-double real-tn lip (- (* vector-data-offset word-bytes)
 				other-pointer-type)))
@@ -554,6 +555,7 @@
     (inst addu lip object index)
     (inst addu lip index)
     (inst addu lip index)
+    (inst addu lip index)
     (let ((value-real (complex-double-reg-real-tn value))
 	  (result-real (complex-double-reg-real-tn result)))
       (str-double value-real lip (- (* vector-data-offset word-bytes)