diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp
index 48e0ba1ef9453fbaaa271528ab1bfb2028c4870c..1d2d7443ba5141c5c02724ad5e31ff8b19346f0e 100644
--- a/ansi-tests/compile-file.lsp
+++ b/ansi-tests/compile-file.lsp
@@ -26,12 +26,10 @@
 		  (handler-bind
 		   ((style-warning #'(lambda (c)
 				       (declare (ignore c))
-;				       (break "foo")
 				       (setf actual-style-warnings-p t)
 				       nil))
 		    ((or error warning)
 		     #'(lambda (c)
-;			 (break "bar")
 			 (unless (typep c 'style-warning)
 			   (setf actual-warnings-p t))
 			 nil)))
@@ -42,9 +40,8 @@
       (destructuring-bind
 	  (output-truename warnings-p failure-p)
 	  vals
-;	(print (namestring (truename target-pathname)))
-;	(print (namestring output-truename))
-;	(format t "str ~a~%" str)
+	(print (namestring (truename target-pathname)))
+	(print (namestring output-truename))
 	(values
 	 (let ((v1 (or print verbose
 		       (and (not print-p) *compile-print*)
diff --git a/ansi-tests/documentation.lsp b/ansi-tests/documentation.lsp
index 1427b9af68be349dbad722fed9d7e12abfac6d14..cc4cd65882404bcdf4b0a71e32551bd22bd5ae3b 100644
--- a/ansi-tests/documentation.lsp
+++ b/ansi-tests/documentation.lsp
@@ -627,8 +627,8 @@
   (defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
     (setf (slot-value obj 'my-doc) newdoc))
   
-;  (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
-;    (documentation-test-class-1-doc-accessor obj))
+  (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
+    (documentation-test-class-1-doc-accessor obj))
 
   (defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
     (setf (documentation-test-class-1-doc-accessor obj) newdoc)))
diff --git a/ansi-tests/load-data-and-control-flow.lsp b/ansi-tests/load-data-and-control-flow.lsp
index a5bf30ec96a5f14122723951648fb28e6aeda84a..f5cab57694e68d17582b3351609ded015065d3d9 100644
--- a/ansi-tests/load-data-and-control-flow.lsp
+++ b/ansi-tests/load-data-and-control-flow.lsp
@@ -9,7 +9,7 @@
 (load "return.lsp")
 (load "return-from.lsp")
 (load "defsetf.lsp")
-;(load "define-setf-expander.lsp")
+(load "define-setf-expander.lsp")
 
 (load "and.lsp")
 (load "apply.lsp")