diff --git a/compiler/locall.lisp b/compiler/locall.lisp
index 56b2f5ed392c353abe997733d34408413d16c217..e49b4e5e1c787c234f7ef482ffc14058c3ad6fe8 100644
--- a/compiler/locall.lisp
+++ b/compiler/locall.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.39 1992/11/03 07:06:03 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.40 1993/01/17 20:38:06 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -150,7 +150,7 @@
 	 (dotimes (i nargs)
 	   (temps (gensym)))
 	 `(lambda (,n-supplied ,@(temps))
-	    (declare (fixnum ,n-supplied))
+	    (declare (type index ,n-supplied))
 	    ,(if (policy nil (zerop safety))
 		 `(declare (ignore ,n-supplied))
 		 `(%verify-argument-count ,n-supplied ,nargs))
@@ -172,7 +172,7 @@
 		      (%funcall ,(first eps) ,@(subseq (temps) 0 n)))))
 
 	 `(lambda (,n-supplied ,@(temps))
-	    (declare (fixnum ,n-supplied))
+	    (declare (type index ,n-supplied))
 	    (cond
 	     ,@(if more (butlast (entries)) (entries))
 	     ,@(when more