diff --git a/assembly/mips/array.lisp b/assembly/mips/array.lisp
index d410cf7987e9f1f480e2a225ac9bc89c62813dd8..1eff3823bb507de300979e1c67810c51ce184662 100644
--- a/assembly/mips/array.lisp
+++ b/assembly/mips/array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.2 1990/03/18 23:53:17 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.3 1990/03/22 12:01:12 wlott Exp $
 ;;;
 ;;;    This file contains the support routines for arrays and vectors.
 ;;;
@@ -20,7 +20,7 @@
   `(pseudo-atomic (,ndescr)
      (inst ori ,vector alloc-tn vm:other-pointer-type)
      (inst addiu alloc-tn alloc-tn (+ (1- (ash 1 vm:lowtag-bits))
-				      (* vm:vector-base-size vm:word-bytes)))
+				      (* vm:vector-data-offset vm:word-bytes)))
      (inst addu alloc-tn alloc-tn ,words)
      (loadi ,ndescr (lognot vm:lowtag-mask))
      (inst and alloc-tn alloc-tn ,ndescr)