Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1674,11 +1674,11 @@
                         (hash-table-set! (dboard:tabdat-run-keys tabdat) run-id run-path)
                         ;; (iup:attribute-set! (dboard:tabdat-runs-matrix tabdat)
                         ;;    		 (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 "Areas" (cons area-name run-path)) ;; (append key-vals (list run-name))
+                        (tree:add-node tb "Areas" (cons "smoketest" (cons area-name run-path))) ;; (append key-vals (list run-name))
                         ;;                                             userdata: (conc "run-id: " run-id))))
                         (hash-table-set! (dboard:tabdat-path-run-ids tabdat) run-path run-id)
                         ;; (set! colnum (+ colnum 1))
                         ))))
 	      run-ids)))
@@ -2057,12 +2057,13 @@
 		      (lambda ()
 			;; (print "obj: " obj ", id: " id ", state: " state)
 			(let* ((run-path (tree:node->path obj id))
 			       (path-len (length run-path))
 			       (area-name (if (> path-len 1)(cadr run-path) #f))
-			       (run-id    (if (> path-len 2)
-					      (tree-path->run-id tabdat (cddr run-path))
+                               (run-type  (if (> path-len 2)(caddr run-path) #f))
+			       (run-id    (if (> path-len 3)
+					      (tree-path->run-id tabdat (cdddr run-path))
 					      #f)))
 			  (dboard:tabdat-area-name-set! tabdat area-name)
 			  (if (number? run-id)
 			      (begin
                                 (dboard:tabdat-prev-run-id-set!