@@ -378,21 +378,20 @@
 (if (args:get-arg "-runall")
     (general-run-call 
      "-runall"
      "run all tests"
      (lambda (db target runname keys keynames keyvallst)
-       (let ((flags (make-hash-table)))
-	 (for-each (lambda (parm)
-		     (hash-table-set! flags parm (args:get-arg parm)))
-		   (list "-rerun" "-force"))
+;;       (let ((flags (make-hash-table)))
+;;	 (for-each (lambda (parm)
+;;		     (hash-table-set! flags parm (args:get-arg parm)))
+;;		   (list "-rerun" "-force" "-itempatt"))
 	 (runs:run-tests db
 			 target
 			 runname
-			 (args:get-arg "-testpatt")
-			 (args:get-arg "-itempatt")
+			 (args:get-arg "-runtests")
 			 user
-			 flags)))))
+			 args:arg-hash)))) ;; )
 
 ;;======================================================================
 ;; run one test
 ;;======================================================================
 
@@ -416,13 +415,12 @@
    (lambda (db target runname keys keynames keyvallst)
      (runs:run-tests db
 		     target
 		     runname
 		     (args:get-arg "-runtests")
-		     (args:get-arg "-itempatt")
 		     user
-		     (make-hash-table)))))
+		     args:arg-hash))))
 
 ;;======================================================================
 ;; Rollup into a run
 ;;======================================================================
 (if (args:get-arg "-rollup")