                (conj it (dissoc config :option-packs))
                (conj it options)
                (reduce merge (hash-map) it)
-               )
+               (if (not (:version-comparison it))
+                 (assoc
+                  it
+                  :version-comparison
+                  (as-> (:package-system it) x
+                    (get package-systems x)
+                    (get x :version-comparison)))
+                 it))
               required-keys (set (keys (:required-arguments subcmd-cli)))
               present-keys (set (keys effective-options))]
           (when (not (st/subset? required-keys present-keys))

           :id :requirements
           :assoc-fn
           (fn [m k v] (update-in m [k] #(conj % v)))]
          ["-C" "--card-file FILE"
           (str "The name of the card file")

           :validate [#(not (empty? %))
                      "Out file must not be empty."]]]}
   "generate-repo-index"
   {:description "Generate repository index based on degasolv package cards"
    :function generate-repo-index-cli!

       aggregate-repo
       (aggregate-repositories
         index-strat
         repositories
         (get-in package-systems [pkgsys :genrepo])
         version-comparator)
       result
       (resolve-dependencies
        requirement-data
