diff --git a/ansi-tests/defsetf.lsp b/ansi-tests/defsetf.lsp
index e78fe073c9c084800fe78ed3cc749ea4c54e768e..a026beff4357918b7f16281da021bd94511f8673 100644
--- a/ansi-tests/defsetf.lsp
+++ b/ansi-tests/defsetf.lsp
@@ -19,14 +19,14 @@
   (setf (cadr x) val))
 
 (deftest defsetf.1
-  (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)))
+  (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))
+    (eval
+     '(let ((x (list 1 2 3)))
 	(values
 	 (setf (defsetf.1-accessor x) 4)
 	 x))))