@@ -266,13 +266,14 @@
 			      (if tm tm (make-db:testmeta)))
 			    (make-db:testmeta)))
 
 	 (keystring  (string-intersperse 
 		      (map (lambda (keyval)
-			     (conc ":" (car keyval) " " (cadr keyval)))
+			     ;; (conc ":" (car keyval) " " (cadr keyval)))
+			     (cadr keyval))
 			   keydat)
-		      " "))
+		      "/"))
 	 (item-path  (db:test-get-item-path testdat))
 	 (viewlog    (lambda (x)
 		       (if (file-exists? logfile)
 			   ;(system (conc "firefox " logfile "&"))
 			   (iup:send-url logfile)
@@ -332,23 +333,23 @@
 								  (let ((cmd (iup:attribute command-text-box "VALUE")))
 								    (system (conc cmd "  &"))))))
 	 (run-test  (lambda (x)
 		      (iup:attribute-set! 
 		       command-text-box "VALUE"
-		       (conc "megatest -runtests " testname " " keystring " :runname " runname 
+		       (conc "megatest -runtests " testname " -target " keystring " :runname " runname 
 			     " -itempatt " (if (equal? item-path "")
 					       "%" 
 					       item-path)
-			     " -keepgoing > run.log" ))))
+			     "" ))))
 	 (remove-test (lambda (x)
 			(iup:attribute-set!
 			 command-text-box "VALUE"
-			 (conc "megatest -remove-runs " keystring " :runname " runname " -testpatt " testname " -itempatt "
+			 (conc "megatest -remove-runs -target " keystring " :runname " runname " -testpatt " testname " -itempatt "
 			       (if (equal? item-path "")
 				   "%"
 				   item-path)
-			       " > clean.log")))))
+			       " -v ")))))
     (cond
      ((not testdat)(begin (print "ERROR: bad test info for " test-id)(exit 1)))
      ((not rundat)(begin (print "ERROR: found test info but there is a problem with the run info for " run-id)(exit 1)))
      (else
       ;;  (test-set-status! db run-id test-name state status itemdat)