diff --git a/assembly/mips/array.lisp b/assembly/mips/array.lisp
index 83540937d0b172df7c13b42aac9ffe63ba486a54..1b406f73abe6cfc874725f7aeb432f2907d9526f 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.9 1990/06/16 14:38:40 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.10 1990/06/16 17:19:45 wlott Exp $
 ;;;
 ;;;    This file contains the support routines for arrays and vectors.
 ;;;
@@ -58,7 +58,7 @@
 (define-assembly-routine (alloc-g-vector
 			  ()
 			  (:arg length any-reg a0-offset)
-			  (:arg fill descriptor-reg a1-offset)
+			  (:arg fill (descriptor-reg any-reg) a1-offset)
 			  (:res result descriptor-reg a0-offset)
 
 			  (:temp ndescr non-descriptor-reg nl0-offset)