Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1313,12 +1313,10 @@
 			(bnum (string->number bval)))
 		   (if (and anum bnum)
 		       (< anum bnum)
 		       (string<= aval bval)))))))
 
-
-
 (define (dboard:update-tree tabdat runs-hash runs-header tb)
   (let* ((run-ids (sort (filter number? (hash-table-keys runs-hash))
 			(lambda (a b)
 			  (let* ((record-a (hash-table-ref runs-hash a))
 				 (record-b (hash-table-ref runs-hash b))
@@ -1394,10 +1392,11 @@
 			(iup:attribute-set! run-matrix key name)))))
 	      row-indices)
     
     ;; Cell contents
     (for-each (lambda (entry)
+		;; (print "entry: " entry)
 		(let* ((row-name  (cadr entry))
 		       (col-name  (car entry))
 		       (valuedat  (caddr entry))
 		       (test-id   (list-ref valuedat 0))
 		       (test-name row-name) ;; (list-ref valuedat 1))

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -272,15 +272,15 @@
   (if (null? tests-dat) 
       '()
       (let loop ((hed (car tests-dat))
 		 (tal (cdr tests-dat))
 		 (res '()))
-	(let* ((test-id    (vector-ref hed 0)) ;; look at the tests-dat spec for locations
-	       (test-name  (vector-ref hed 1))
-	       (item-path  (vector-ref hed 2))
-	       (state      (vector-ref hed 3))
-	       (status     (vector-ref hed 4))
+	(let* ((test-id    (db:test-get-id hed)) ;; look at the tests-dat spec for locations
+	       (test-name  (db:test-get-testname hed))
+	       (item-path  (db:test-get-item-path hed))
+	       (state      (db:test-get-status hed))
+	       (status     (db:test-get-status hed))
 	       (newitem    (list test-name item-path (list test-id state status))))
 	  (if (null? tal)
 	      (reverse (cons newitem res))
 	      (loop (car tal)(cdr tal)(cons newitem res)))))))