Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1900,27 +1900,42 @@
                         ;; (set! colnum (+ colnum 1))
                         ))))
 	      run-ids)))
 
 (define (dashboard:tests-ht->tests-dat tests-ht)
-  (reverse
-   (sort
-    (hash-table-values tests-ht)
-    (lambda (a b) 
-      (let ((a-test-name  (db:test-get-testname a))
-            (a-item-path  (db:test-get-item-path a))
-            (b-test-name  (db:test-get-testname b))
-            (b-item-path  (db:test-get-item-path b))
-            (a-event-time (db:test-get-event_time a))
-            (b-event-time (db:test-get-event_time b)))
-        (if (not (equal? a-test-name b-test-name))
-            (> a-event-time b-event-time)
-            (cond
-             ((< 0 (string-compare3 a-test-name b-test-name)) #t)
-             ((> 0 (string-compare3 a-test-name b-test-name)) #f)
-             ((< 0 (string-compare3 a-item-path b-item-path)) #t)
-             (else #f))))))))
+  (let ((oldest-item (make-hash-table))) ;;
+    ;; populate the oldest-item table
+    (for-each
+     (lambda (tdat)
+       (let ((tname (db:test-get-testname tdat))
+	     (etime (db:test-get-event_time tdat)))
+	 (if (hash-table-exists? oldest-item tname)
+	     (if (< (hash-table-ref oldest-item tname) etime)
+		 (hash-table-set! oldest-item tname etime))
+	     (hash-table-set! oldest-item tname etime))))
+     (hash-table-values tests-ht))
+    (reverse
+     (sort
+      (hash-table-values tests-ht)
+      (lambda (a b) 
+	(let ((a-test-name  (db:test-get-testname a))
+	      (a-item-path  (db:test-get-item-path a))
+	      (b-test-name  (db:test-get-testname b))
+	      (b-item-path  (db:test-get-item-path b))
+	      (a-event-time (db:test-get-event_time a))
+	      (b-event-time (db:test-get-event_time b)))
+	  (if (equal? a-test-name b-test-name)
+	      (> a-event-time b-event-time)
+	      (> (hash-table-ref oldest-item a-test-name)
+		 (hash-table-ref oldest-item b-test-name)))))))))
+;;	  (if (not (equal? a-test-name b-test-name))
+;;	      (> a-event-time b-event-time)
+;;	      (cond
+;;	       ((< 0 (string-compare3 a-test-name b-test-name)) #t)
+;;	       ((> 0 (string-compare3 a-test-name b-test-name)) #f)
+;;	       ((< 0 (string-compare3 a-item-path b-item-path)) #t)
+;;	       (else #f)))))))))
 
 
 (define (dashboard:run-id->tests-mindat run-id tabdat runs-hash)
   (let* ((run          (hash-table-ref/default runs-hash run-id #f))
          (key-vals     (rmt:get-key-vals run-id))