           replacement-map))
 
 (defn freshen [project & args]
+  (tag-all-repos :fetch true)
   (let [prj-file-name (str (:root project) "/project.clj")
         old-deps (:dependencies project)
         desired-new-deps (doall (map #(fresh-version %) old-deps))]

(defn fetch-all
  [dirs]
  (doseq [^File d dirs]
    (println "Fetching:" (.getPath d))
    (git {:gitdir d} "fetch")))

(defn find-project

    (doseq [branch branches]
      (let [tag (str "voom-branch--" branch)]
        (git {:gitdir gitdir} "tag" "-f" tag (str "origin/" branch))))))

(defn tag-all-repos
  [& {:keys [fetch]}]
  (->> (all-repos-dirs)
       (map #(future
               (when fetch
                 (fetch-all [%]))
               (tag-repo-projects %)))
       doall
       (map deref)
       dorun))

(defn clear-voom-tags
  [gitdir]
