diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index b1aa31aa479d11490a41f3ab0012f5e503238940..000cbc9f8bf53041868078ca17614f06ded73fed 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -114,6 +114,7 @@ them.")
   "Like EQUALP, but doesn't do case conversion of characters.
    Currently doesn't work on arrays of dimension > 2."
   (cond
+   ((eq x y) t)
    ((consp x)
     (and (consp y)
 	 (equalp-with-case (car x) (car y))