Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1527,12 +1527,11 @@
  ;;				   #:multiline "YES")))
  ;;	 (dboard:tabdat-logs-textbox-set! tabdat logs-tb)
  ;;	 logs-tb))
 
 (define (dboard:runs-tree-txtbox-change tabdat val a b)
-  (if b (dboard:tabdat-target-set! tabdat
-				   (string-split b "/")))
+  (if b (dboard:tabdat-target-set! tabdat (string-split b "/")))
   (dashboard:update-run-command tabdat))
 
 ;; browse runs as a tree. Used in both "Runs" tab and
 ;; in the runs control panel.
 ;;
@@ -1587,20 +1586,18 @@
                       (debug:print-error 5 *default-log-port* "tree-path->run-id returned non-number " run-id))))
               "treebox"))
            ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
            )))
     (dboard:tabdat-runs-tree-set! tabdat tb)
+    (if (args:get-arg "-runname")
+	(let ((runname (args:get-arg "-runname")))
+	  (update-search commondat tabdat "runname" runname)
+	  #;(hash-table-set! (dboard:tabdat-searchpatts tabdat) "runname" runname)))
     (if (args:get-arg "-target") ;; 
 	(let ((target (args:get-arg "-target")))
-	  ;;(thread-start!
-	  ;; (make-thread
-	  ;;   (lambda ()
-	      ;; (thread-sleep! 1)
-	      (iup:attribute-set! txtbox value: target)
-	      (dboard:runs-tree-txtbox-change tabdat #f #f target))
-	;; "redraw on start"))))
-	)
+	  (iup:attribute-set! txtbox value: target)
+	  (dboard:runs-tree-txtbox-change tabdat #f #f target)))
     (iup:detachbox
      (iup:vbox 
       txtbox
       tb
       ))))
@@ -2792,10 +2789,15 @@
 	 (btn-fontsz      (dboard:tabdat-runs-btn-fontsz runs-dat))
 	 (cell-width      (dboard:tabdat-runs-cell-width runs-dat)))
     ;; controls (along bottom)
     ;; (set! controls (dboard:make-controls commondat runs-dat))
     
+    (if (args:get-arg "-runname")
+	(let ((runname (args:get-arg "-runname")))
+	  (update-search commondat runs-dat "runname" runname)
+	  #;(hash-table-set! (dboard:tabdat-searchpatts tabdat) "runname" runname)))
+
     ;; create the left most column for the run key names and the test names 
     (set! lftlst
 	  (list (iup:hbox
 		 (iup:label) ;; (iup:valuator)
 		 (apply iup:vbox 
@@ -2807,11 +2809,12 @@
 						      #:fontsize btn-fontsz
 						      #:expand "NO") ;; "HORIZONTAL")
 					   (iup:textbox
 					    #:size (conc 35 btn-height)
 					    #:fontsize btn-fontsz
-					    #:value "%"
+					    #:value (if (and (args:get-arg "-runname")(equal? x "runname"))
+							(args:get-arg "-runname") "%")
 					    #:expand "NO" ;; "HORIZONTAL"
 					    #:action (lambda (obj unk val)
 						       ;; each field
 						       ;; (field name is "x" var) live updates
 						       ;; the search filter as it is typed

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -1160,11 +1160,11 @@
 				       (lambda ()
 					 ;; (print "obj: " obj " val: " val " unk: " unk)
 					 (dboard:tabdat-run-name-set! tabdat txt) ;; (iup:attribute obj "VALUE"))
 					 (dashboard:update-run-command tabdat))
 				       "command-runname-selector tb action"))
-			   #:value (or default-run-name (dboard:tabdat-run-name tabdat))))
+			   #:value (or (args:get-arg "-runname") default-run-name (dboard:tabdat-run-name tabdat))))
 	  (lb (iup:listbox #:expand "HORIZONTAL"
 			   #:dropdown "YES"
 			   #:action (lambda (obj val index lbstate)
 				      (debug:catch-and-dump
 				       (lambda ()