diff --git a/compiler/x86/array.lisp b/compiler/x86/array.lisp
index 1e99e139f657f29f594adfb88c6ddde7bb992e28..056112834dbaad1065a691f08acd7eafc63ab748 100644
--- a/compiler/x86/array.lisp
+++ b/compiler/x86/array.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/x86/array.lisp,v 1.13 1998/03/21 07:54:36 dtc Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/array.lisp,v 1.14 1998/07/24 15:21:29 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -84,12 +84,15 @@
 
 ;;;; Bounds checking routine.
 
+;;; Note that the immediate SC for the index argument is disabled
+;;; because it is not possible to generate a valid error code SC for
+;;; an immediate value.
 (define-vop (check-bound)
   (:translate %check-bound)
   (:policy :fast-safe)
   (:args (array :scs (descriptor-reg))
 	 (bound :scs (any-reg descriptor-reg))
-	 (index :scs (any-reg descriptor-reg immediate) :target result))
+	 (index :scs (any-reg descriptor-reg #+nil immediate) :target result))
   (:arg-types * positive-fixnum tagged-num)
   (:results (result :scs (any-reg descriptor-reg)))
   (:result-types positive-fixnum)