   [project & args]
   (ensure-deps-repos (:dependencies project))
   (when (not-any? #{"--no-fetch"} args)
-    (fetch-all (all-repos-dirs)))
+    (fetch-all))
   (let [prj-file-name (str (:root project) "/project.clj")
         old-deps (:dependencies project)
         desired-new-deps (doall (map #(fresh-version %) old-deps))]

(defn all-repos-dirs []
  (glob (str (s/replace voom-repos #"/$" "") "/*")))

(defn fetch-all
  [dirs]
  (doseq [^File d dirs]
    (print (str "Fetching: " (.getPath d) "\n"))
    (flush)
    (git {:gitdir d} "fetch")))

(defn find-project
  [pgroup pname candidate]


(def ^{:doc "Display this help message"} box-help help)

(def subtasks [#'build-deps #'deploy #'fetch-all #'find-box #'freshen #'help
               #'install #'update-repo-dbs #'ver-parse #'wrap
               #'box #'box-new #'box-init #'box-add #'box-remove #'box-help])

;; Note the docstring for 'voom' is seen when the user runs any of:
