@@ -979,23 +979,24 @@
 				   (let* ((run-record (hash-table-ref/default runs-hash run-id #f))
 					  (key-vals   (map (lambda (key)(db:get-value-by-header run-record runs-header key))
 							   *keys*))
 					  (run-name   (db:get-value-by-header run-record runs-header "runname"))
 					  (col-name   (conc (string-intersperse key-vals "\n") "\n" run-name))
-					  (run-path   (append key-vals (list run-name))))
-				     (hash-table-set! (dboard:data-get-run-keys *data*) run-id run-path)
-				     ;; (iup:attribute-set! (dboard:data-get-runs-matrix *data*)
-				     ;;    		 (conc rownum ":" colnum) col-name)
-				     ;; (hash-table-set! runid-to-col run-id (list colnum run-record))
-				     ;; Here we update the tests treebox and tree keys
-				     (tree:add-node tb "Runs" (append key-vals (list run-name))
-						    userdata: (conc "run-id: " run-id))
-				     (let ((path ;;(string-intersperse "/" 
-					    (append key-vals (list run-name))))
-				       (hash-table-set! (dboard:data-get-path-run-ids *data*) path run-id))
-				     ;; (set! colnum (+ colnum 1))
-				     ))
+					  (run-path   (append key-vals (list run-name)))
+					  (existing   (tree:find-node tb run-path)))
+				     (if (not (hash-table-ref/default (dboard:data-get-path-run-ids *data*) run-path #f))
+					 (begin
+					   (hash-table-set! (dboard:data-get-run-keys *data*) run-id run-path)
+					   ;; (iup:attribute-set! (dboard:data-get-runs-matrix *data*)
+					   ;;    		 (conc rownum ":" colnum) col-name)
+					   ;; (hash-table-set! runid-to-col run-id (list colnum run-record))
+					   ;; Here we update the tests treebox and tree keys
+					   (tree:add-node tb "Runs" run-path ;; (append key-vals (list run-name))
+							  userdata: (conc "run-id: " run-id))
+					   (hash-table-set! (dboard:data-get-path-run-ids *data*) run-path run-id)
+					   ;; (set! colnum (+ colnum 1))
+					   ))))
 				 run-ids)
 		       (iup:attribute-set! run-matrix "CLEARVALUE" "CONTENTS")
 		       (iup:attribute-set! run-matrix "CLEARATTRIB" "CONTENTS")
 		       (iup:attribute-set! run-matrix "NUMCOL" max-col )
 		       (iup:attribute-set! run-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20