Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -931,13 +931,14 @@
 (if (or (args:get-arg "-list-runs")
 	(args:get-arg "-list-db-targets"))
     (if (launch:setup-for-run)
 	(let* ((dbstruct    (make-dbr:dbstruct path: *toppath* local: #t))
 	       (runpatt     (args:get-arg "-list-runs"))
-	       (testpatt    (if (args:get-arg "-testpatt") 
-			        (args:get-arg "-testpatt") 
-			        "%"))
+	       (testpatt    (common:args-get-testpatt))
+	       ;; (if (args:get-arg "-testpatt") 
+	       ;;  	        (args:get-arg "-testpatt") 
+	       ;;  	        "%"))
 	       (keys        (db:get-keys dbstruct))
 	       ;; (runsda   t  (db:get-runs dbstruct runpatt #f #f '()))
 	       (runsdat     (db:get-runs-by-patt dbstruct keys (or runpatt "%") (common:args-get-target)
 			           	 #f #f '("id" "runname" "state" "status" "owner" "event_time" "comment")))
 	       (runstmp     (db:get-rows runsdat))
@@ -1145,12 +1146,13 @@
      "-runall"
      "run all tests"
      (lambda (target runname keys keyvals)
        (runs:run-tests target
 		       runname
-		       (or (args:get-arg "-testpatt")
-			   "%")
+		       (common:args-get-testpatt)
+		       ;; (or (args:get-arg "-testpatt")
+		       ;;     "%")
 		       user
 		       args:arg-hash))))
 
 ;;======================================================================
 ;; run one test