@@ -34,10 +34,11 @@
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")
 
 ;; (use trace dot-locking)
 ;; (trace
+;;  tests:match)
 ;;  db:teststep-set-status!
 ;;  db:open-test-db-by-test-id
 ;;  db:test-get-rundir-from-test-id
 ;;  cdb:tests-register-test
 ;;  cdb:tests-update-uname-host
@@ -621,11 +622,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