diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp
index a12159c96..0589456de 100644
--- a/src/code/inspect.lisp
+++ b/src/code/inspect.lisp
@@ -271,11 +271,11 @@ evaluated expressions.
                           (inspected-index-string i (reverse dimensions)))
                   (aref reference-array i))
             reversed-elements))
-    (values (format nil "The object is ~:[a displaced~;an~] ARRAY of ~A.~%~
+    (values (format nil "The object is ~:[an~;a displaced~] ARRAY of ~A.~%~
                          Its dimensions are ~S.~%"
-                    (array-element-type object)
                     (and (array-header-p object)
                          (%array-displaced-p object))
+                    (array-element-type object)
                     dimensions)
             t
             (nreverse reversed-elements))))