diff --git a/compiler/mips/array.lisp b/compiler/mips/array.lisp
index 06a0bbe1138101dd7d7539c6f721ef4645492397..10ef344230d035ad4e90dfcc7cac172b5459c7f4 100644
--- a/compiler/mips/array.lisp
+++ b/compiler/mips/array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.26 1990/10/02 00:36:20 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.27 1990/11/01 17:16:34 wlott Exp $
 ;;;
 ;;;    This file contains the MIPS definitions for array operations.
 ;;;
@@ -170,7 +170,7 @@
 	 (:generator 20
 	   (inst srl temp index ,bit-shift)
 	   (inst sll temp 2)
-	   (inst add lip object temp)
+	   (inst addu lip object temp)
 	   (inst lw result lip
 		 (- (* vm:vector-data-offset vm:word-bytes)
 		    vm:other-pointer-type))
@@ -219,7 +219,7 @@
 	 (:generator 25
 	   (inst srl temp index ,bit-shift)
 	   (inst sll temp 2)
-	   (inst add lip object temp)
+	   (inst addu lip object temp)
 	   (inst lw old lip
 		 (- (* vm:vector-data-offset vm:word-bytes)
 		    vm:other-pointer-type))
@@ -325,7 +325,7 @@
   (:result-types single-float)
   (:temporary (:scs (interior-reg)) lip)
   (:generator 20
-    (inst add lip object index)
+    (inst addu lip object index)
     (inst lwc1 value lip
 	  (- (* vm:vector-data-offset vm:word-bytes)
 	     vm:other-pointer-type))
@@ -343,7 +343,7 @@
   (:result-types single-float)
   (:temporary (:scs (interior-reg)) lip)
   (:generator 20
-    (inst add lip object index)
+    (inst addu lip object index)
     (inst swc1 value lip
 	  (- (* vm:vector-data-offset vm:word-bytes)
 	     vm:other-pointer-type))
@@ -361,8 +361,8 @@
   (:result-types double-float)
   (:temporary (:scs (interior-reg)) lip)
   (:generator 20
-    (inst add lip object index)
-    (inst add lip index)
+    (inst addu lip object index)
+    (inst addu lip index)
     (inst lwc1 value lip
 	  (- (* vm:vector-data-offset vm:word-bytes)
 	     vm:other-pointer-type))
@@ -384,8 +384,8 @@
   (:result-types double-float)
   (:temporary (:scs (interior-reg)) lip)
   (:generator 20
-    (inst add lip object index)
-    (inst add lip index)
+    (inst addu lip object index)
+    (inst addu lip index)
     (inst swc1 value lip
 	  (- (* vm:vector-data-offset vm:word-bytes)
 	     vm:other-pointer-type))