diff --git a/ansi-tests/upgraded-array-element-type.lsp b/ansi-tests/upgraded-array-element-type.lsp
index 2f8d42eb030117a8ae2380776217f6b35cb0d2bc..72a319d3220f9a1cfc978f75c2b3bbef01cb6de6 100644
--- a/ansi-tests/upgraded-array-element-type.lsp
+++ b/ansi-tests/upgraded-array-element-type.lsp
@@ -55,8 +55,9 @@
 (deftest upgraded-array-element-type.4
   (loop for type in *upgraded-array-types-to-check*
 	for upgraded-type = (upgraded-array-element-type type)
-	always (empirical-subtypep type upgraded-type))
-  t)
+	unless (empirical-subtypep type upgraded-type)
+	collect (list type upgraded-type))
+  nil)
 
 ;; Include an environment (NIL, denoting the default null lexical
 ;; environment)
@@ -64,8 +65,9 @@
 (deftest upgraded-array-element-type.5
   (loop for type in *upgraded-array-types-to-check*
 	for upgraded-type = (upgraded-array-element-type type nil)
-	always (empirical-subtypep type upgraded-type))
-  t)
+	unless (empirical-subtypep type upgraded-type)
+	collect (list type upgraded-type))
+  nil)
 
 (deftest upgraded-array-element-type.6
   (macrolet