   (let [r (resolve-dependencies-deluxe requirements query options)]
     (if (= (:result r) :successful)
            [:successful (:packages r)]
-           [(:result r) r])))
-
+           [(:result r) (dissoc r :result)])))
+

                               present-packages)))
           (list-packages
             (second result)
             :list-strat list-strat))
         :install-graph
         (make-install-graph
           (second result)

            (let [children (filter
                             #(and
                                (not (get already-visited %))
                                (not (exclude %))
                                (not (get parents %)))
                             (get package-graph children-of))]
              (if (empty? children)
