@@ -856,11 +856,11 @@
 	    (exit 1))
 	  ;; put test parameters into convenient variables
 	  (runs:operate-on  action
 			    target
 			    (common:args-get-runname)  ;; (or (args:get-arg "-runname")(args:get-arg ":runname"))
-			    (common:args-get-testpatt) ;; (args:get-arg "-testpatt")
+			    (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
 			    state: (common:args-get-state)
 			    status: (common:args-get-status)
 			    new-state-status: (args:get-arg "-set-state-status")))
       (set! *didsomething* #t)))))
 	  
@@ -933,11 +933,11 @@
 (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    (common:args-get-testpatt))
+	       (testpatt    (common:args-get-testpatt #f))
 	       ;; (if (args:get-arg "-testpatt") 
 	       ;;  	        (args:get-arg "-testpatt") 
 	       ;;  	        "%"))
 	       (keys        (db:get-keys dbstruct))
 	       ;; (runsda   t  (db:get-runs dbstruct runpatt #f #f '()))
@@ -1141,18 +1141,20 @@
 ;;     put task in deferred queue
 ;; if still ok to run tasks
 ;;   process deferred tasks per above steps
 
 ;; run all tests are are Not COMPLETED and PASS or CHECK
-(if (or (args:get-arg "-runall")(args:get-arg "-run"))
+(if (or (args:get-arg "-runall")
+	(args:get-arg "-run")
+	(args:get-arg "-runtests"))
     (general-run-call 
      "-runall"
      "run all tests"
      (lambda (target runname keys keyvals)
        (runs:run-tests target
 		       runname
-		       (common:args-get-testpatt)
+		       #f ;; (common:args-get-testpatt #f)
 		       ;; (or (args:get-arg "-testpatt")
 		       ;;     "%")
 		       user
 		       args:arg-hash))))
 
@@ -1171,31 +1173,31 @@
 ;;    - step completed, exit status, timestamp
 ;; 6. test phone home
 ;;    - if test run time > allowed run time then kill job
 ;;    - if cannot access db > allowed disconnect time then kill job
 
-(if (or (args:get-arg "-run")(args:get-arg "-runtests"))
-  (general-run-call 
-   "-runtests" 
-   "run a test" 
-   (lambda (target runname keys keyvals)
-     ;;
-     ;; May or may not implement it this way ...
-     ;;
-     ;; Insert this run into the tasks queue
-     ;; (open-run-close tasks:add tasks:open-db 
-     ;;    	     "runtests" 
-     ;;    	     user
-     ;;    	     target
-     ;;    	     runname
-     ;;    	     (args:get-arg "-runtests")
-     ;;    	     #f))))
-     (runs:run-tests target
-		     runname
-		     (common:args-get-testpatt) ;; (args:get-arg "-runtests")
-		     user
-		     args:arg-hash))))
+;; == duplicated == (if (or (args:get-arg "-run")(args:get-arg "-runtests"))
+;; == duplicated ==   (general-run-call 
+;; == duplicated ==    "-runtests" 
+;; == duplicated ==    "run a test" 
+;; == duplicated ==    (lambda (target runname keys keyvals)
+;; == duplicated ==      ;;
+;; == duplicated ==      ;; May or may not implement it this way ...
+;; == duplicated ==      ;;
+;; == duplicated ==      ;; Insert this run into the tasks queue
+;; == duplicated ==      ;; (open-run-close tasks:add tasks:open-db 
+;; == duplicated ==      ;;    	     "runtests" 
+;; == duplicated ==      ;;    	     user
+;; == duplicated ==      ;;    	     target
+;; == duplicated ==      ;;    	     runname
+;; == duplicated ==      ;;    	     (args:get-arg "-runtests")
+;; == duplicated ==      ;;    	     #f))))
+;; == duplicated ==      (runs:run-tests target
+;; == duplicated == 		     runname
+;; == duplicated == 		     (common:args-get-testpatt #f) ;; (args:get-arg "-runtests")
+;; == duplicated == 		     user
+;; == duplicated == 		     args:arg-hash))))
 
 ;;======================================================================
 ;; Rollup into a run
 ;;======================================================================