@@ -1215,10 +1215,11 @@
   (if (not (null? path))
       (hash-table-ref/default (d:data-path-run-ids data) path #f)
       #f))
 
 (define dashboard:update-run-summary-tab #f)
+(define dashboard:update-new-view-tab #f)
 
 (define (dboard:get-tests-dat data run-id last-update)
   (let ((tdat (if run-id
 		  (if (d:alldat-useserver data)
 		      (rmt:get-tests-for-run run-id 
@@ -1415,11 +1416,11 @@
 		     (let* ((run-path (tree:node->path obj id))
 			    (run-id   (tree-path->run-id ddata (cdr run-path))))
 		       (if (number? run-id)
 			   (begin
 			     (d:data-curr-run-id-set! ddata run-id)
-			     (dashboard:update-run-summary-tab))
+			     (dashboard:update-new-view-tab))
 			   (debug:print 0 "ERROR: tree-path->run-id returned non-number " run-id)))
 		     ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
 		     )))
 	 (cell-lookup (make-hash-table))
 	 (run-matrix (iup:matrix
@@ -1539,11 +1540,11 @@
 					   (iup:attribute-set! run-matrix key name)
 					   (iup:attribute-set! run-matrix "FITTOTEXT" (conc "C" num))))))
 				 col-indices)
 		       (if changed (iup:attribute-set! run-matrix "REDRAW" "ALL"))))))
     
-    (set! dashboard:update-run-summary-tab updater)
+    (set! dashboard:update-new-view-tab updater)
     (d:data-runs-tree-set! ddata tb)
     (iup:split
      tb
      run-matrix)))
 
@@ -1877,11 +1878,11 @@
 			      res))
 	     (update-buttons uidat (d:alldat-numruns *alldat*) (d:alldat-num-tests *alldat*)))
 	    ((2)
 	     (dashboard:update-run-summary-tab))
 	    ((3)
-	     (dashboard:update-run-summary-tab))
+	     (dashboard:update-new-view-tab))
 	    (else
 	     (let ((updater (hash-table-ref/default (d:alldat-updaters *alldat*)
 						    (d:alldat-curr-tab-num *alldat*) #f)))
 	       (if updater (updater)))))
 	  (d:alldat-please-update-set! *alldat* #f)
@@ -1897,11 +1898,11 @@
   (if (file-exists? debugcontrolf)
       (load debugcontrolf)))
 
 (define (main)
   (let* ((runs-sum-dat (d:data-init (make-d:data))) ;; data for run-summary tab
-	 (new-view-dat runs-sum-dat) ;; NOT YET SEPARATE (d:data-init (make-d:data))))
+	 (new-view-dat (d:data-init (make-d:data)))
 	 (data         *alldat*))
     (cond 
      ((args:get-arg "-run")
       (let ((runid (string->number (args:get-arg "-run"))))
 	(if runid