@@ -78,11 +78,12 @@
     login
     tasks-get-last
     testmeta-get-record
     have-incompletes?
     synchash-get
-    get-changed-record-ids 
+    get-changed-record-ids
+		get-run-record-ids 
     ))
 
 (define api:write-queries
   '(
     get-keys-write ;; dummy "write" query to force server start
@@ -316,12 +317,12 @@
                                                          (run-id     (cadr params))
                                                          (realparams (cddr params)))
                                                      (db:general-call dbstruct stmtname realparams)))
                    ((sdb-qry)                      (apply sdb:qry params))
                    ((ping)                         (current-process-id))
-		   ((get-changed-record-ids)       (apply db:get-changed-record-ids dbstruct params))
-		   
+		   						 ((get-changed-record-ids)       (apply db:get-changed-record-ids dbstruct params))
+		   						 ((get-run-record-ids) 					 (apply db:get-run-record-ids dbstruct params))	
                    ;; TESTMETA
                    ((testmeta-get-record)       (apply db:testmeta-get-record dbstruct params))
 
                    ;; TASKS 
                    ((find-task-queue-records)   (apply tasks:find-task-queue-records dbstruct params))