diff --git a/regression/Makefile b/regression/Makefile
index bc014ca91..384fefd72 100644
--- a/regression/Makefile
+++ b/regression/Makefile
@@ -12,7 +12,7 @@ $(TESTS): %: %.expr
 	@cat $@.input | $(RC) -s $< > $@.log && diff $@.log orig/$@.log
 
 clean:
-	rm -f test*.log *.s *~ $(TESTS)
-	pushd expressions && make clean && popd
-	pushd deep-expressions && make clean && popd
-	pushd x86only && make clean && popd
+	$(RM) test*.log *.s *~ $(TESTS)
+	$(MAKE) clean -C expressions
+	$(MAKE) clean -C deep-expressions
+	$(MAKE) clean -C x86only
diff --git a/regression/test039(1).expr b/regression/test039(1).expr
deleted file mode 100644
index 10f2761ac..000000000
--- a/regression/test039(1).expr
+++ /dev/null
@@ -1,41 +0,0 @@
-fun insert (t, x) {
-  case t of
-    `leaf           -> return `node (x, `leaf, `leaf)
-  | `node (y, l, r) -> if x > y
-                          then return `node (y, insert (l, x), r)
-			  else return `node (y, l, insert (r, x))
-		       fi
-  esac
-}
-
-fun find (t, x) {
-  case t of
-    `leaf           -> return 0
-  | `node (y, l, r) -> if x == y then return 1
-		       elif x > y then return find (l, x)
-		                  else return find (r, x)
-		       fi
-  esac
-}
-
-n := read ();
-
-write (0);
-t := insert (`leaf, 5);
-write (2);
-t := insert (t, 4);
-write (3);
-t := insert (t, 6);
-write (4);
-t := insert (t, 3);
-write (5);
-write (find (t, 5));
-write (6);
-write (find (t, 4));
-write (find (t, 6));
-write (find (t, 3));
-write (find (t, 2));
-write (find (t, 1));
-
-
-t := insert (insert (insert (insert (`leaf, 5), 4), 6), 3)
\ No newline at end of file