Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1370,11 +1370,17 @@
 	     ;; Target, testpatt, state and status input boxes
 	     ;;
 	     (iup:vbox
 	      ;; Command to run, placed over the top of the canvas
 	      (dcommon:command-action-selector commondat tabdat tab-num: tab-num)
-	      (dboard:runs-tree-browser commondat tabdat)
+	      (let ((targ-control (iup:tabs
+				   (dboard:runs-tree-browser commondat tabdat)
+				   (let ((dat (dashboard:update-target-selector tabdat)))
+				     (apply iup:hbox (cadr dat))))))
+		(iup:attribute-set! targ-control "TABTITLE0" "Tree")
+		(iup:attribute-set! targ-control "TABTITLE1" "Sel")
+		targ-control)
 	      (dcommon:command-runname-selector commondat tabdat tab-num: tab-num)
 	      (dcommon:command-testname-selector commondat tabdat update-keyvals))
 	     ;;  key-listboxes))
 	     (dcommon:command-tests-tasks-canvas tabdat test-records sorted-testnames tests-draw-state))))
 	   (tb (dboard:tabdat-runs-tree tabdat)))
@@ -2027,12 +2033,10 @@
     ;; maybe wrap in a frame
     (let ((res (iup:vbox summary-buttons-hbox xor-runname-labels-hbox )))
       (dboard:runs-summary-control-panel-updater tabdat)
       res
       )))
-
-
 
 ;;======================================================================
 ;; R U N
 ;;======================================================================
 ;;