                     (when (not= old-ver new-ver)
                       (str " -> " new-ver)))))
     (if (= old-deps desired-new-deps)
-      (println "All deps already up-to-date.")
+      (println "No versions bumped.")
       (let [replacement-map (into {} (map #(when (not= %1 %2) [%1 %2])
                                           old-deps desired-new-deps))
             tmp-file (File/createTempFile

                                (concat neg-tags [(str "origin/" found-branch) "--" found-path]))))]
        :when (seq commits)]
    (let [refs (-> commits first :refs)
          reflist (filter #(and
                            (= (str proj-name) (:proj %))
                            (= found-path (:path %))) (map parse-tag refs))]
      (some (fn [[current next-commit]]
              #_(prn :refs path (:refs next-commit))
              (when (or (= :end next-commit)
                        (some #(= found-path (:path (parse-tag %)))
                              (:refs next-commit)))

                   [(str "--git-dir=" (.getPath gitdir))
                    (str "--work-tree=" (.getParent gitdir))])
        all-args (concat dir-args subcmd)
        ;; _ (prn :calling (doall (cons 'git all-args)))
        {:keys [exit] :as rtn} (apply sh "git" all-args)]
    (when-not (ok-statuses exit)
      (throw (ex-info "git error" (assoc rtn :git all-args))))
