diff -r b49c0faa3ac2 test/lisp/ansi/package.lisp
--- a/test/lisp/ansi/package.lisp	Sat Jul 17 10:40:57 2010 +0200
+++ b/test/lisp/ansi/package.lisp	Sat Jul 17 10:50:06 2010 +0200
@@ -38,7 +38,15 @@
 	      (run-shell-command 
 	       (format nil "~A~%~A"
 		       (format nil "cd ~A" *ansi-tests-directory*)
-		       (format nil "erase *.cls *.abcl"))))
+		       (format nil "erase ~{~S~}"
+                               '("*.cls *.abcl"
+                                 "scratch/ scratch.txt"
+                                 "foo.txt foo.lsp foo.dat"
+                                 "tmp.txt tmp.dat tmp2.dat temp.dat"
+                                 "gazonk* out.class"
+                                 "TMP/"
+                                 "CLTEST:file-that-was-renamed.txt file-that-was-renamed.txt"
+                                 "compile-file-test-lp.lsp compile-file-test-lp.out ldtest.lsp")))))
 	  (time (load boot-file))
 	  (format t "<--- ~A ends.~%" message))
       (file-error (e)