        (doseq [job jobs-to-run] (swap! job assoc :status :running))
 
        ;; schedule another run to catch any remaining jobs that we haven't run
-       ;; in this round.
+       ;; in this round (if any).
        (send-off *agent* schedule-job-run)
 
-       ;; and add the running job to the run queue
+       ;; and add the new thread to the run queue
        (cons (future (print-errors (run-jobs jobs-to-run marc-source)))
              (filter (complement future-done?) current-jobs))))))
 

                     :field-options field-options

                     ;; internal use attributes...
                     ;;
                     :submission-time (Date.)
                     :hits 0
                     :records-checked 0

;;; Job control
;;;


(def job-runner
  "An agent that manages the job run queue."
  (agent []))


(defn run-worker
