Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -403,11 +403,12 @@
 (define (common:args-get-status)
   (or (args:get-arg "-status")(args:get-arg ":status")))
 
 (define (common:args-get-testpatt)
   (let* ((args-testpatt (or (args:get-arg "-testpatt")
-			    (args:get-arg "-runtests")))
+			    (args:get-arg "-runtests")
+			    "%"))
 	 (testpatt    (or (and (equal? args-testpatt "%")
 			       (getenv "TESTPATT"))
 			  args-testpatt)))
     testpatt))
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -434,10 +434,12 @@
 (if (args:get-arg "-itempatt")
     (let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
       (debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
       (hash-table-set! args:arg-hash "-testpatt" newval)
       (hash-table-delete! args:arg-hash "-itempatt")))
+
+
 
 (on-exit std-exit-procedure)
 
 ;;======================================================================
 ;; Misc general calls
@@ -1187,11 +1189,11 @@
      ;;    	     runname
      ;;    	     (args:get-arg "-runtests")
      ;;    	     #f))))
      (runs:run-tests target
 		     runname
-		     (args:get-arg "-runtests")
+		     (common:args-get-testpatt) ;; (args:get-arg "-runtests")
 		     user
 		     args:arg-hash))))
 
 ;;======================================================================
 ;; Rollup into a run