@@ -812,26 +812,27 @@
 			 (if targ-list (string-intersperse targ-list "/") "no-target-selected")))
 	 (run-name     (dboard:data-get-run-name   *data*))
 	 (states-str   (if (or (not states)
 			       (null? states))
 			   ""
-			   (conc " :state "  (string-intersperse states ","))))
+			   (conc " -state "  (string-intersperse states ","))))
 	 (statuses-str (if (or (not statuses)
 			       (null? statuses))
 			   ""
-			   (conc " :status " (string-intersperse statuses ","))))
+			   (conc " -status " (string-intersperse statuses ","))))
 	 (full-cmd  "megatest"))
     (case (string->symbol cmd)
-      ((runtests)
+      ((run)
        (set! full-cmd (conc full-cmd 
 			    " -run"
 			    " -testpatt "
 			    test-patt
 			    " -target "
 			    target
 			    " -runname "
 			    run-name
+			    " -clean-cache"
 			    )))
       ((remove-runs)
        (set! full-cmd (conc full-cmd
 			    " -remove-runs -runname "
 			    run-name
@@ -875,11 +876,11 @@
   (let* ((targets       (make-hash-table))
 	 (test-records  (make-hash-table))
 	 (all-tests-registry (tests:get-all)) ;; (tests:get-valid-tests *toppath* '()))
 	 (test-names    (hash-table-keys all-tests-registry))
 	 (sorted-testnames #f)
-	 (action        "-runtests")
+	 (action        "-run")
 	 (cmdln         "")
 	 (runlogs       (make-hash-table))
 	 (key-listboxes #f)
 	 (updater-for-runs #f)
 	 (update-keyvals (lambda ()
@@ -938,11 +939,11 @@
 	;; Command to run
 	(iup:frame
 	 #:title "Set the action to take"
 	 (iup:hbox
 	  ;; (iup:label "Command to run" #:expand "HORIZONTAL" #:size "70x" #:alignment "LEFT:ACENTER")
-	  (let* ((cmds-list '("runtests" "remove-runs" "set-state-status" "lock-runs" "unlock-runs"))
+	  (let* ((cmds-list '("run" "remove-runs" "set-state-status" "lock-runs" "unlock-runs"))
 		 (lb         (iup:listbox #:expand "HORIZONTAL"
 					  #:dropdown "YES"
 					  #:action (lambda (obj val index lbstate)
 						     ;; (print obj " " val " " index " " lbstate)
 						     (dboard:data-set-command! *data* val)