@@ -136,21 +136,26 @@
 	 (get-tests-sig   (conc (client:get-signature) " get-tests"))
 	 (get-details-sig (conc (client:get-signature) " get-test-details"))
 
 	 ;; test-ids to get and display are indexed on window-id in curr-test-ids hash
 	 (test-ids        (hash-table-values (dboard:data-get-curr-test-ids *data*)))
-
- 	 (run-changes     (synchash:client-get 'db:get-runs get-runs-sig (length keypatts) data runname #f #f keypatts))
+	 ;; run-id is #f in next line to send the query to server 0
+ 	 (run-changes     (synchash:client-get 'db:get-runs get-runs-sig (length keypatts) data #f runname #f #f keypatts))
 	 (tests-detail-changes (if (not (null? test-ids))
 				   (synchash:client-get 'db:get-test-info-by-ids get-details-sig 0  data #f test-ids)
 				   '()))
 
 	 ;; Now can calculate the run-ids
 	 (run-hash    (hash-table-ref/default data get-runs-sig #f))
 	 (run-ids     (if run-hash (filter number? (hash-table-keys run-hash)) '()))
 
-	 (test-changes (synchash:client-get 'db:get-tests-for-runs-mindata get-tests-sig 0 data run-ids testpatt states statuses #f))
+	 (all-test-changes (let ((res (make-hash-table)))
+			     (for-each (lambda (run-id)
+					 (if (> run-id 0)
+					     (hash-table-set! res run-id (synchash:client-get 'db:get-tests-for-run-mindata get-tests-sig 0 data run-id 1 testpatt states statuses #f))))
+				       run-ids)
+			     res))
 	 (runs-hash    (hash-table-ref/default data get-runs-sig #f))
 	 (header       (hash-table-ref/default runs-hash "header" #f))
 	 (run-ids      (sort (filter number? (hash-table-keys runs-hash))
 			     (lambda (a b)
 			       (let* ((record-a (hash-table-ref runs-hash a))
@@ -192,10 +197,11 @@
 
     ;; Scan all tests to be displayed and organise all the test names, respecting what is in the hash table
     ;; Do this analysis in the order of the run-ids, the most recent run wins
     (for-each (lambda (run-id)
 		(let* ((run-path       (hash-table-ref (dboard:data-get-run-keys *data*) run-id))
+		       (test-changes   (hash-table-ref all-test-changes run-id))
 		       (new-test-dat   (car test-changes))
 		       (removed-tests  (cadr test-changes))
 		       (tests          (sort (map cadr (filter (lambda (testrec)
 								 (eq? run-id (db:mintest-get-run_id (cadr testrec))))
 							       new-test-dat))
@@ -269,11 +275,11 @@
       (if updater (updater (hash-table-ref/default data get-details-sig #f))))
 
     (iup:attribute-set! (dboard:data-get-runs-matrix *data*) "REDRAW" "ALL")
     ;; (debug:print 2 "run-changes: " run-changes)
     ;; (debug:print 2 "test-changes: " test-changes)
-    (list run-changes test-changes)))
+    (list run-changes all-test-changes)))
 
 ;;======================================================================
 ;; TESTS DATA
 ;;======================================================================