@@ -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))