@@ -465,10 +465,13 @@
 
 ;; NOT COMPLETED
 (define (rmt:runtests user run-id testpatt params)
   (rmt:send-receive 'runtests run-id testpatt))
 
+(define (rmt:get-run-record-ids  target run keynames test-patt)
+  (rmt:send-receive 'get-run-record-ids #f (list target run keynames test-patt)))
+
 (define (rmt:get-changed-record-ids since-time)
   (rmt:send-receive 'get-changed-record-ids #f (list since-time)) )
 
 ;;======================================================================
 ;;  T E S T   M E T A