Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -777,10 +777,13 @@
 	 (test-stats-update-period (configf:lookup-number *configdat* "setup" "test-stats-update-period")))
    (rmt:find-and-mark-incomplete-engine run-id ovr-deadtime cfg-deadtime test-stats-update-period)
    ;;call end of eud of run detection for posthook
    (launch:end-of-run-check run-id)))
 
+(define (rmt:get-test-id run-id testname itempath)
+  (rmt:send-receive 'get-test-id run-id (list run-id testname itempath)))
+
 ;; set tests with state currstate and status currstatus to newstate and newstatus
 ;; use currstate = #f and or currstatus = #f to apply to any state or status respectively
 ;; WARNING: SQL injection risk. NB// See new but not yet used "faster" version below
 ;;
 ;;  AND NOT (item_path='' AND testname in (SELECT DISTINCT testname FROM tests WHERE testname=? AND item_path != ''));")))
@@ -791,14 +794,14 @@
 ;;
 (define (rmt:set-tests-state-status run-id testnames currstate currstatus newstate newstatus)
   (let ((test-ids '()))
     (for-each
      (lambda (testname)
-       (let ((test-id   (db:get-test-id dbstruct run-id testname "")))
+       (let ((test-id   (rmt:get-test-id run-id testname "")))
 	 (rmt:set-state-status-by-state-status run-id testname currstate currstatus newstate newstatus)
 	 (if test-id
 	     (begin
 	       (set! test-ids (cons test-id test-ids))
 	       (mt:process-triggers run-id test-id newstate newstatus)))))
      testnames)
     test-ids))