diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp
index 27169411e779d62013a90bb609b33792a59018af..75197867117a2a2aebc552203d7f8c8d12f4b09d 100644
--- a/compiler/generic/vm-type.lisp
+++ b/compiler/generic/vm-type.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/generic/vm-type.lisp,v 1.42 2003/03/22 16:15:18 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.43 2003/10/13 11:24:14 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -39,7 +39,7 @@
 (deftype bit-index () `(integer 0 ,most-positive-fixnum))
 ;;;
 ;;; Offset argument to Ash (a signed bit index).
-(deftype ash-index () 'fixnum)
+(deftype ash-index () 'integer)
 ;;;
 ;;; A lexical environment for macroexpansion.
 (deftype lexical-environment () 'c::lexenv)