diff --git a/ansi-tests/defsetf.lsp b/ansi-tests/defsetf.lsp
index 1cdcbc9ec9f074e71d22e91f9188cae06c8a78d1..e78fe073c9c084800fe78ed3cc749ea4c54e768e 100644
--- a/ansi-tests/defsetf.lsp
+++ b/ansi-tests/defsetf.lsp
@@ -19,16 +19,17 @@
   (setf (cadr x) val))
 
 (deftest defsetf.1
-  (progn
-    (let ((vals (multiple-value-list
-		 (defsetf defsetf.1-accessor defsetf.1-accessor-settor))))
-      (assert (equal vals '(defsetf.1-accessor))
-	      ()
-	      "Return values are ~A~%" vals))
-    (let ((x (list 1 2 3)))
-      (values
-       (setf (defsetf.1-accessor x) 4)
-       x)))
+  (eval
+   '(progn
+      (let ((vals (multiple-value-list
+		   (defsetf defsetf.1-accessor defsetf.1-accessor-settor))))
+	(assert (equal vals '(defsetf.1-accessor))
+		()
+		"Return values are ~A~%" vals))
+      (let ((x (list 1 2 3)))
+	(values
+	 (setf (defsetf.1-accessor x) 4)
+	 x))))
   4
   (1 4 3))