@@ -621,11 +621,12 @@
    "run a test" 
    (lambda (target runname keys keynames keyvallst)
      (runs:run-tests target
 		     runname
 		     (args:get-arg "-runtests")
-		     (args:get-arg "-testpatt")
+		     (or (args:get-arg "-testpatt")
+			 (args:get-arg "-runtests"))
 		     user
 		     args:arg-hash))))
 
 ;;======================================================================
 ;; Rollup into a run