@@ -1574,10 +1574,12 @@
       tb
       ))))
 
 ;; browse runs as a tree. Used in both "Runs" tab and
 ;; in the runs control panel.
+;;
+;;  THIS IS THE NEW ONE
 ;;
 (define (dboard:runs-tree-new-browser commondat rdat)
   (let* ((txtbox (iup:textbox
 		  #:action (lambda (val a b)
 			     (debug:catch-and-dump
@@ -2585,20 +2587,23 @@
 ;; simple-run?                       procedure (x3780)
 
 ;; runs is <vec header runs>
 ;;
 (define (dashboard:update-runs-data data rdat)
-  ;; update runs       id              => runrec
-  ;; update targ-runid target/runname  => run-id
-  (for-each
-   (lambda (runrec)
-     (let* ((run-id (simple-run-id runrec)))
-       (sparse-vector-set! (dboard:rdat-runs rdat) run-id runrec)
-       (hash-table-set! (dboard:rdat-targ-runid rdat)
-			(conc (simple-run-target runrec) "/" (simple-run-runname runrec))
-			run-id)))
-   data))
+  (let* ((tb (dboard:rdat-runs-tree rdat)))
+    ;; update runs       id              => runrec
+    ;; update targ-runid target/runname  => run-id
+    (for-each
+     (lambda (runrec)
+       (let* ((run-id (simple-run-id runrec))
+	      (full-targ-runname (conc (simple-run-target runrec) "/"
+				       (simple-run-runname runrec))))
+	 (sparse-vector-set! (dboard:rdat-runs rdat) run-id runrec)
+	 (hash-table-set! (dboard:rdat-targ-runid rdat) full-targ-runname run-id)
+	 (tree:add-node tb "Runs" (string-split full-targ-runname "/"))
+	 ))
+     data)))
 
 (define (new-runs-updater commondat rdat)
   (let* ((last-update       (dboard:rdat-last-update     rdat))
 	 (targ-sql-filt    (dboard:rdat-targ-sql-filt    rdat))
 	 (runname-sql-filt (dboard:rdat-runname-sql-filt rdat))