@@ -726,11 +726,11 @@
   ;; NB// Should expand items here and then insert into the run queue.
   (debug:print 5 "test-records: " test-records ", flags: " (hash-table->alist flags))
 
   ;; Do mark-and-find clean up of db before starting runing of quue
   ;;
-  (cdb:remote-run db:find-and-mark-incomplete #f)
+  ;; (cdb:remote-run db:find-and-mark-incomplete #f)
 
   (let ((run-info              (cdb:remote-run db:get-run-info #f run-id))
 	(tests-info            (mt:get-tests-for-run run-id #f '() '())) ;;  qryvals: "id,testname,item_path"))
 	(sorted-test-names     (tests:sort-by-priority-and-waiton test-records))
 	(test-registry         (make-hash-table))
@@ -761,14 +761,14 @@
 	       (reg         '()) ;; registered, put these at the head of tal 
 	       (reruns      '()))
       (if (not (null? reruns))(debug:print-info 4 "reruns=" reruns))
 
       ;; Here we mark any old defunct tests as incomplete. Do this every fifteen minutes
-      (if (> (current-seconds)(+ last-time-incomplete 900))
-	  (begin
-	    (set! last-time-incomplete (current-seconds))
-	    (cdb:remote-run db:find-and-mark-incomplete #f)))
+      ;; (if (> (current-seconds)(+ last-time-incomplete 900))
+      ;;     (begin
+      ;;       (set! last-time-incomplete (current-seconds))
+      ;;       (cdb:remote-run db:find-and-mark-incomplete #f)))
 
       ;; (print "Top of loop, hed=" hed ", tal=" tal " ,reruns=" reruns)
       (let* ((test-record (hash-table-ref test-records hed))
 	     (test-name   (tests:testqueue-get-testname test-record))
 	     (tconfig     (tests:testqueue-get-testconfig test-record))