diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp
index 848d59fbe94c44885674fdae7a0a7308d2fa5e95..57386abf980f330eed064209bba9cec992d62a18 100644
--- a/compiler/array-tran.lisp
+++ b/compiler/array-tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.1 1990/11/10 18:39:33 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.2 1990/11/10 19:20:54 wlott Exp $
 ;;;
 ;;; This file contains array specific optimizers and transforms.
 ;;; 
@@ -357,13 +357,13 @@
       (give-up))
     (let ((dims (array-type-dimensions array-type)))
       (unless (listp dims)
-	(give-up "Can't tell the rank at compile time.")
-	(if (member '* dims)
-	    (do ((form 1 `(truly-the index
-				     (* (array-dimension array ,i) ,form)))
-		 (i 0 (1+ i)))
-		((= i (length dims)) form))
-	    (reduce #'* dims))))))
+	(give-up "Can't tell the rank at compile time."))
+      (if (member '* dims)
+	  (do ((form 1 `(truly-the index
+				   (* (array-dimension array ,i) ,form)))
+	       (i 0 (1+ i)))
+	      ((= i (length dims)) form))
+	  (reduce #'* dims)))))
 
 ;;; ARRAY-HAS-FILL-POINTER-P  --  transform.
 ;;;