@@ -392,11 +392,13 @@
      "-runall"
      "run all tests"
      (lambda (target runname keys keynames keyvallst)
 	 (runs:run-tests target
 			 runname
-			 (args:get-arg "-runtests")
+			 (if (args:get-arg "-testpatt")
+			     (args:get-arg "-testpatt")
+			     "%/%")
 			 user
 			 args:arg-hash)))) ;; )
 
 ;;======================================================================
 ;; run one test