@@ -45,11 +45,13 @@
     get-prev-run-ids
     get-run-ids-matching-target
     get-runs-by-patt
     get-steps-data
     login
-    testmeta-get-record))
+    testmeta-get-record
+    have-incompletes?
+    ))
 
 (define api:write-queries
   '(
     ;; SERVERS
     start-server
@@ -68,11 +70,11 @@
     register-run
     set-tests-state-status
     delete-run
     lock/unlock-run
     update-run-event_time
-    find-and-mark-incomplete
+    mark-incomplete
 
     ;; STEPS
     teststep-set-status!
 
     ;; TEST DATA
@@ -134,12 +136,10 @@
 	    ((register-run)                 (apply db:register-run dbstruct params))
 	    ((set-tests-state-status)       (apply db:set-tests-state-status dbstruct params))
 	    ((delete-run)                   (apply db:delete-run dbstruct params))
 	    ((lock/unlock-run)              (apply db:lock/unlock-run dbstruct params))
 	    ((update-run-event_time)        (apply db:update-run-event_time dbstruct params))
-	    ((find-and-mark-incomplete)     (apply db:find-and-mark-incomplete dbstruct params))
-
 
 	    ;; STEPS
 	    ((teststep-set-status!)         (apply db:teststep-set-status! dbstruct params))
 
 	    ;; TEST DATA
@@ -147,10 +147,11 @@
 	    ((csv->test-data)               (apply db:csv->test-data dbstruct params))
 
 	    ;; MISC
 	    ((sync-inmem->db)               (let ((run-id (car params)))
 					      (db:sync-touched dbstruct run-id force-sync: #t)))
+	    ((mark-incomplete)              (apply db:find-and-mark-incomplete dbstruct params))
 
 	    ;; TESTMETA
 	    ((testmeta-add-record)       (apply db:testmeta-add-record dbstruct params))
 	    ((testmeta-update-field)     (apply db:testmeta-update-field dbstruct params))
 
@@ -199,10 +200,11 @@
 
 	    ;; STEPS
 	    ((get-steps-data)               (apply db:get-steps-data dbstruct params))
 
 	    ;; MISC
+	    ((have-incompletes?)            (apply db:have-incompletes? dbstruct params))
 	    ((login)                        (apply db:login dbstruct params))
 	    ((general-call)                 (let ((stmtname   (car params))
 						  (run-id     (cadr params))
 						  (realparams (cddr params)))
 					      (db:with-db dbstruct run-id #t ;; these are all for modifying the db