diff -rN -u old-plexippus-xpath/test.lisp new-plexippus-xpath/test.lisp
--- old-plexippus-xpath/test.lisp	2008-07-27 15:24:20.000000000 +0530
+++ new-plexippus-xpath/test.lisp	2008-07-27 15:24:20.000000000 +0530
@@ -36,7 +36,7 @@
   (with-gensyms (exp-value act-value)
     `(let ((,exp-value ,expected)
            (,act-value ,actual))
-      (unless (equal ,exp-value ,act-value)
+      (unless (equalp ,exp-value ,act-value)
         (error "TEST FAILED: ~s is expected to be~%~s~%but was~%~s"
                ',actual ,exp-value ,act-value)))))
 

