@@ -381,11 +381,11 @@
 	 (get-tests-sig (conc (client:get-signature) " get-tests"))
 	 (run-changes  (synchash:client-get 'db:get-runs get-runs-sig (length keypatts) data runname #f #f keypatts))
 	 ;; 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 get-tests-sig 0 data run-ids testpatt states statuses))
+	 (test-changes (synchash:client-get 'db:get-tests-for-runs-mindata get-tests-sig 0 data run-ids testpatt states statuses))
 	 (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))
@@ -421,21 +421,21 @@
     ;; Do this analysis in the order of the run-ids, the most recent run wins
     (for-each (lambda (run-id)
 		(let* ((new-test-dat   (car test-changes))
 		       (removed-tests  (cadr test-changes))
 		       (tests          (sort (map cadr (filter (lambda (testrec)
-								 (eq? run-id (db:test-get-run_id (cadr testrec))))
+								 (eq? run-id (db:mintest-get-run_id (cadr testrec))))
 							       new-test-dat))
 					     (lambda (a b)
-					       (let ((time-a (db:test-get-event_time a))
-						     (time-b (db:test-get-event_time b)))
+					       (let ((time-a (db:mintest-get-event_time a))
+						     (time-b (db:mintest-get-event_time b)))
 						 (> time-a time-b)))))
 		       ;; test-changes is a list of (( id record ) ... )
 		       ;; Get list of test names sorted by time, remove tests
 		       (test-names (delete-duplicates (map (lambda (t)
-							     (let ((i (db:test-get-item-path t))
-								   (n (db:test-get-testname  t)))
+							     (let ((i (db:mintest-get-item_path t))
+								   (n (db:mintest-get-testname  t)))
 							       (if (string=? i "")
 								   (conc "   " i)
 								   n)))
 							   tests)))
 		       (colnum     (car (hash-table-ref runid-to-col run-id))))
@@ -444,14 +444,14 @@
 		  ;; run view panel? The run view panel can have a tree selector for
 		  ;; browsing the tests/items
 
 		  ;; SWITCH THIS TO USING CHANGED TESTS ONLY
 		  (for-each (lambda (test)
-			      (let* ((state    (db:test-get-state test))
-				     (status   (db:test-get-status test))
-				     (testname (db:test-get-testname test))
-				     (itempath (db:test-get-item-path test))
+			      (let* ((state    (db:mintest-get-state test))
+				     (status   (db:mintest-get-status test))
+				     (testname (db:mintest-get-testname test))
+				     (itempath (db:mintest-get-item_path test))
 				     (fullname (conc testname "/" itempath))
 				     (dispname (if (string=? itempath "") testname (conc "   " itempath)))
 				     (rownum   (hash-table-ref/default testname-to-row fullname #f)))
 				(if (not rownum)
 				    (let ((rownums (hash-table-values testname-to-row)))