@@ -386,11 +386,14 @@
 		 (th2        (make-thread (lambda ()				    
 					    ;; (rmt:find-and-mark-incomplete-all-runs))))) CAN'T INTERRUPT IT ...
 					    (let ((run-ids (rmt:get-all-run-ids)))
 					      (for-each (lambda (run-id)
 							  (if keep-going
-							      (rmt:find-and-mark-incomplete run-id #f))) ;; ovr-deadtime)))
+							      (handle-exceptions
+							       exn
+							       (debug:print 0 "error in calling find-and-mark-incomplete for run-id " run-id)
+							       (rmt:find-and-mark-incomplete run-id #f)))) ;; ovr-deadtime)))
 							run-ids)))
 					  "runs: mark-incompletes")))
 	    (thread-start! th1)
 	    (thread-start! th2)
 	    (thread-join! th1)