                                   (= (str proj-name) (:proj t))
                                   (= found-path (:path t))))
                               (:refs next-commit)))
-                (let [ver (-> reflist first :ver)]
+                (let [ver (-> reflist first :version)]
                   (assert (not= nil ver) "Failed to find version for commit.")
                   {:sha (:sha current)
                    :ctime (:ctime current)
-                   :ver ver
+                   :version ver
                    :path found-path
                    :proj proj-name
                    :gitdir gitdir

(defn parse-tag
  [tag]
  (->
   (zipmap [:prefix :proj :ver :path :sha :no-parent] (s/split tag #"--"))
   (update-in [:path] (fnil #(s/replace % #"%" "/") :NOT_FOUND))
   (update-in [:proj] (fnil #(s/replace % #"%" "/") :NOT_FOUND))))



(defn format-voom-ver
  [gver]
  (let [{:keys [version ctime sha]} gver]
    (assert version   (str "format-voom-ver requires :version " (pr-str gver)))
    (assert ctime (str "format-voom-ver requires :ctime " (pr-str gver)))
    (assert sha   (str "format-voom-ver requires :sha " (pr-str gver)))
    (str (s/replace version #"-SNAPSHOT" "")
         "-" (formatted-timestamp timestamp-fmt ctime) "-g" sha)))

(defn update-proj-version
  [project long-sha?]
  (let [gver (-> project :root (get-voom-version :long-sha? long-sha?))
        upfn #(format-voom-ver (assoc gver :version %))
        nproj (update-in project [:version] upfn)
        nmeta (update-in (meta project) [:without-profiles :version] upfn)
        nnproj (with-meta nproj nmeta)]
