diff --git a/src/tests/ecl-tests.lisp b/src/tests/ecl-tests.lisp
index 20eb9bd59..5ba12f910 100644
--- a/src/tests/ecl-tests.lisp
+++ b/src/tests/ecl-tests.lisp
@@ -62,7 +62,7 @@
 (defmacro is-equal (what form)
   (once-only ((what what)
               (form form))
-    `(is (equal ,what ,form) "EQUAL: ~s to ~s" ',form ,what ,form)))
+    `(is (equal ,what ,form) "EQUAL: ~s to ~s" ,form ,what)))
 
 (defmacro is-eql (what form)
   (once-only ((what what)