diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index 7fbc7fbbdc0c4eec90f6c432a358a553f0145a4c..f218a59b67c5641c4f8fba9ffe4d4520816d6196 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -146,10 +146,11 @@ them.")
    |#
 
    ((typep x 'array)
-    (let ((size (array-total-size x)))
-      (loop for i from 0 below size
-	    always (equalp-with-case (row-major-aref x i)
-				     (row-major-aref y i)))))
+    (and (typep y 'array)
+	 (let ((size (array-total-size x)))
+	   (loop for i from 0 below size
+		 always (equalp-with-case (row-major-aref x i)
+					  (row-major-aref y i))))))
 
    (t (eql x y))))