     :as context}]
   (let [account (->> account-id
                      (accounts/find-by-id storage)
-                     (ensure-trading-tag storage))
+                     (ensure-tag storage :trading))
         commodity-account (some #(% storage account commodity)
                                 [find-commodity-account
                                  create-commodity-account])]

  [{:keys [commodity-id storage] :as context}]
  (assoc context :commodity (commodities/find-by-id storage commodity-id)))

(defn- find-commodity-account
  [storage parent commodity]
  (first (accounts/search
           storage
           {:parent-id (:id parent)
            :commodity-id (:id commodity)})))

(defn- create-commodity-account
  [storage parent commodity]

                            :entity-id (:entity-id parent)
                            :tags #{:tradable}}))

(defn- acquire-accounts
  "Give a purchase context, acquires the accounts
  necessary to complete the purchase"
