Index: dashboard-new-runs-view.scm
==================================================================
--- dashboard-new-runs-view.scm
+++ dashboard-new-runs-view.scm
@@ -49,10 +49,11 @@
 	      (full-targ-runname (conc (simple-run-target runrec) "/"
 				       (simple-run-runname runrec))))
 	 (debug:print 0 *default-log-port* "Update run  " run-id)
 	 (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)
     numruns))
 
 ;;======================================================================
@@ -62,11 +63,11 @@
 (define (dashboard:runs-browse commondat tabdat #!key (tab-num 5))
   (let* ((rdat (make-dboard:rdat)))
     (dboard:commondat-add-updater
      commondat
      (lambda ()
-       (new-runs-updater commondat tabdat rdat))
+       (dashboard:new-runs-updater commondat tabdat rdat))
      tab-num: tab-num)
     (iup:split
      #:orientation "VERTICAL"
      #:value 150
      (iup:vbox
@@ -73,18 +74,15 @@
       (dboard:runs-tree-new-view-browser commondat rdat))
      (iup:split
       #:orientation "VERTICAL"
       #:value 250
       (iup:vbox
-       (iup:matrix))
+       (dboard:runs-new-matrix commondat rdat))
       (iup:vbox
        (iup:matrix))))))
 
-(define (dashboard:runs-browse-updater commondat tabdat)
-  #f)
-  
-(define (new-runs-updater commondat tabdat rdat)
+(define (dashboard:new-runs-updater commondat tabdat rdat)
   (let* ((runnum           (dboard:rdat-runnum          rdat))
 	 (start-time       (current-milliseconds))
 	 (tot-runs         #f))
     (if (eq? runnum 0)(dashboard:update-runs-data rdat))
     (set! tot-runs (vector-length (dboard:rdat-runsbynum rdat)))
@@ -100,11 +98,10 @@
 		(loop newrn)))))
     (if (>=  (dboard:rdat-runnum rdat) tot-runs)
 	(dboard:rdat-runnum-set! rdat 0))
     ;; (dboard:rdat-runnum-set! rdat rn))) ;; not needed as it is set above
     ;; (dboard:rdat-last-update-set! rdat (- (current-seconds) 10))
-    ;;    	 (tree:add-node tb "Runs" (string-split full-targ-runname "/"))
     '()))
 
 #;(define (make-runs-view commondat rdat tab-num)
   ;; register an updater
   (dboard:commondat-add-updater

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1827,11 +1827,12 @@
       (hash-table-ref/default (dboard:tabdat-path-run-ids tabdat) path #f)
       #f))
 
 (define (new-tree-path->run-id rdat path)
   (if (not (null? path))
-      (hash-table-ref/default (dboard:rdat-path-run-ids tabdat) path #f)
+      (hash-table-ref/default(dboard:rdat-targ-runid rdat) path #f)
+       ;; 
       #f))
 
 ;; (define (dboard:get-tests-dat tabdat run-id last-update)
 ;;   (let* ((access-mode     (dboard:tabdat-access-mode tabdat))
 ;;          (tdat (if run-id (db:dispatch-query access-mode rmt:get-tests-for-run db:get-tests-for-run