                     (Thread/sleep delay)
                     (send *agent* upd)
                     (ns-mod-times dir)))]
-    (doto (agent true)
+    (doto (agent {})
       (send updater))))
 
 (defn- newer-namespaces [older newer]

    :delay - time (ms) between directory scans"
  [d & options]
  (let [{:keys [reporter] :or {reporter spec-report}} options]
    (reporter (run-spec (find-namespaces-in-dir d)))
    (apply watch-dir d
           (fn [names] (reporter (run-spec names :reload)))
           options)))

  "Sent as an agent action, stops a directory-watching agent."
  [state]
  (remove-watch *agent* ::watch)
  nil)

(defn ns-mod-time-agent
  "Creates an agent that monitors namespaces for changes to their
