Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -262,12 +262,12 @@
     (for-each (lambda (run)
 		(let* ((run-id      (db:get-value-by-header run header "id"))
 		       (key-vals    (if *useserver* 
 					(rmt:get-key-vals run-id)
 					(db:get-key-vals *dbstruct-local* run-id)))
-		       (prev-dat    (let ((rec (hash-table-ref/default *allruns-by-id* run-id -1)))
-				      (if rec rec (vector run '() key-vals (- (current-seconds) 10)))))
+		       (prev-dat    (let ((rec (hash-table-ref/default *allruns-by-id* run-id #f)))
+				      (if rec rec (vector run '() key-vals -100)))) ;; -100 is before time began
 		       (prev-tests  (vector-ref prev-dat 1))
 		       (last-update (vector-ref prev-dat 3))
 		       (tmptests    (if *useserver*
 					(rmt:get-tests-for-run run-id testnamepatt states statuses
 							       #f #f
@@ -281,13 +281,16 @@
 							      *hide-not-hide*
 							      sort-by
 							      sort-order
 							      'shortlist
 							      last-update)))
-		       (tests       (let ((newdat (delete-duplicates (append tmptests prev-tests)
-								     (lambda (a b)
-								       (eq? (db:test-get-id a)(db:test-get-id b))))))
+		       (tests       (let ((newdat (filter
+						   (lambda (x)
+						     (not (equal? (db:test-get-state x) "DELETED"))) ;; remove deleted tests but do it after merging
+						   (delete-duplicates (append tmptests prev-tests)
+								      (lambda (a b)
+									(eq? (db:test-get-id a)(db:test-get-id b)))))))
 				      (if (eq? *tests-sort-reverse* 3) ;; +event_time
 					(sort newdat compare-tests)
 					newdat))))
 		  ;; NOTE: bubble-up also sets the global *all-item-test-names*
 		  ;; (tests       (bubble-up tmptests priority: bubble-type))

Index: mt.scm
==================================================================
--- mt.scm
+++ mt.scm
@@ -66,21 +66,21 @@
 
 ;;======================================================================
 ;;  T E S T S
 ;;======================================================================
 
-(define (mt:get-tests-for-run run-id testpatt states status #!key (not-in #t) (sort-by 'event_time) (sort-order "ASC") (qryvals #f))
-  (let loop ((testsdat (rmt:get-tests-for-run run-id testpatt states status 0 500 not-in sort-by sort-order qryvals))
+(define (mt:get-tests-for-run run-id testpatt states status #!key (not-in #t) (sort-by 'event_time) (sort-order "ASC") (qryvals #f)(last-update #f))
+  (let loop ((testsdat (rmt:get-tests-for-run run-id testpatt states status 0 500 not-in sort-by sort-order qryvals last-update))
 	     (res      '())
 	     (offset   0)
 	     (limit    500))
     (let* ((full-list (append res testsdat))
 	   (have-more (eq? (length testsdat) limit)))
       (if have-more 
 	  (let ((new-offset (+ offset limit)))
 	    (debug:print-info 4 "More than " limit " tests, have " (length full-list) " tests so far.")
-	    (loop (rmt:get-tests-for-run run-id testpatt states status new-offset limit not-in sort-by sort-order qryvals)
+	    (loop (rmt:get-tests-for-run run-id testpatt states status new-offset limit not-in sort-by sort-order qryvals last-update)
 		  full-list
 		  new-offset
 		  limit))
 	  full-list))))