diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp
index 586b6cce21f5dca1f4f4ba16c6ca09ce7bf797ae..86ed77bfebeaddbc442e30707b86adb213018571 100644
--- a/compiler/array-tran.lisp
+++ b/compiler/array-tran.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/array-tran.lisp,v 1.33 2003/04/27 11:43:43 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.34 2003/07/01 09:38:07 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -461,7 +461,7 @@
   (unless (constant-continuation-p dimension)
     (give-up))
   (let ((dim (continuation-value dimension)))
-    `(the (integer 0 ,dim) index)))
+    `(the (integer 0 (,dim)) index)))
 ;;;
 (deftransform %check-bound ((array dimension index) * *
 			    :policy (and (> speed safety) (= safety 0)))
diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt
index 187073d7c8763e23947c16ac75c2cdfb9e0057b6..0c0398c85cfeb417e675ff4c6faf91da47dabc03 100644
--- a/general-info/release-19a.txt
+++ b/general-info/release-19a.txt
@@ -140,6 +140,7 @@ New in this release:
        made them undisplayable.
      - Structure predicates no longer signaling an error when applied
        to obsolete instances.
+     - A DEFTRANSFORM for array bounds checking had an off-by-1 error.
 
   * Other changes:
      - Removed obsolete alias from MAKE-VECTOR to MAKE-ARRAY