@@ -250,15 +250,26 @@
 
 ;; 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-run-record-ids  target run keynames )
+  (rmt:send-receive 'get-run-record-ids #f (list target run keynames )))
 
 (define (rmt:get-changed-record-ids since-time)
   (rmt:send-receive 'get-changed-record-ids #f (list since-time)) )
+
+(define (rmt:get-all-runids)
+  (rmt:send-receive 'get-all-run-ids #f '()) )
+
+(define (rmt:get-changed-record-run-ids since-time)
+  (rmt:send-receive 'get-changed-record-run-ids #f (list since-time)))
+
+(define (rmt:get-changed-record-test-ids run-id since-time)
+  (rmt:send-receive 'get-changed-record-test-ids run-id (list since-time run-id)))
+
+
 
 (define (rmt:drop-all-triggers)
      (rmt:send-receive 'drop-all-triggers #f '()))
 
 (define (rmt:create-all-triggers)
@@ -411,10 +422,12 @@
   (let ((run-ids (rmt:get-run-ids-matching-target keynames target res runname testpatt statepatt statuspatt)))
     (apply append 
 	   (map (lambda (run-id)
 		  (rmt:send-receive 'test-get-paths-matching-keynames-target-new run-id (list run-id keynames target res testpatt statepatt statuspatt runname)))
 	   run-ids))))
+
+
 
 (define (rmt:get-prereqs-not-met run-id waitons ref-test-name ref-item-path #!key (mode '(normal))(itemmaps #f))
   (assert (number? run-id) "FATAL: Run id required.")
   (rmt:send-receive 'get-prereqs-not-met run-id (list run-id waitons ref-test-name ref-item-path mode itemmaps)))