           indent (apply str (repeat (+ 8 WIDTH) \space))
           label (if (>= c WIDTH) (str label ":") (str label ":" (apply str (repeat (- WIDTH c) \space))))]
       (print (str "  * " label " [ "))
-      (let [vps (partition 5 5 nil (map first vs))]
+      (let [vps (partition 5 5 nil (map :version-string vs))]
         (doseq [v (first vps)] (print (pr-str v) ""))
         (doseq [vp (rest vps)]
           (println)

(ns ^{ :doc "List artifact version information."
       :author "Yannick Scherer" }
  leiningen.ancient.get
  (:require [leiningen.ancient.utils.projects :refer [collect-repositories]]
            [leiningen.ancient.utils.cli :refer [parse-cli]]
            [leiningen.ancient.utils.io :refer [with-output-settings]]
            [ancient-clj.verbose :refer :all]
            [ancient-clj.core :as anc]
            [version-clj.core :as v]
            [ancient-clj.repository :refer [retrieve-latest-version-string!]]))

(def ^:private ^:const WIDTH
  "Maximum width of labels for `:get`."

  (when v
    (print (str "  * " label ": "))
    (print (apply str (repeat (- WIDTH (count label)) \space)))
    (print (color/green "\"" (:version-string v) "\""))
    (println)))

(defn- print-version-seq
