diff --git a/ansi-tests/defmethod.lsp b/ansi-tests/defmethod.lsp
index 625430d95ba177391c1320e0e644d45aa28a1603..4971b6bc7a54512e44f06989448564a8c5fe645c 100644
--- a/ansi-tests/defmethod.lsp
+++ b/ansi-tests/defmethod.lsp
@@ -206,8 +206,8 @@
 (deftest defmethod.error.13
   (let ((sym (gensym)))
     (eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t)) x)))
-    (list (eval `(signals-error (,sym) program-error))
-	  (eval `(signals-error (,sym 1 2) program-error))))
+    (values (eval `(signals-error (,sym) program-error))
+	    (eval `(signals-error (,sym 1 2) program-error))))
   t t)