diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index 301e08e3fb5c2325cf224859cbac9a653f9d9c53..2ed4d86f88186e2f1eafc4a10f0bacb7b6e5e5b6 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -210,7 +210,8 @@
 	   (loop for i from 0 below size
 		 always (equalp-with-case (my-row-major-aref x i)
 					  (my-row-major-aref y i))))))
-
+   ((typep x 'pathname)
+    (equal x y))
    (t (eql x y))))
 
 (defun do-entry (entry &optional