   (commodities/select
     (map (fn [result]
            (-busy)
-           (swap! page-state assoc :commodities (sort-by :name result))))))
+           (swap! page-state #(-> %
+                                  (dissoc :prices-commodity)
+                                  (assoc :commodities (sort-by :name result))))))))
 
 (defn- save-commodity
   [page-state]

               (do
                 (swap! page-state update-in [:prices] (fnil concat []) prices)
                 (recur (<! items-ch)))
               (swap! page-state assoc :all-prices-fetched? true)))
    (go (>! ctl-ch :fetch))))

(defn- select-prices-commodity

                                                          (t/years 1))
                                       (map vec)
                                       (load-in-chunks {:fetch-xf (comp (map #(hash-map :commodity-id (:id commodity)
                                                                                        :trade-date %))
                                                                        fetch-prices)}))]
    (swap! page-state assoc :ctl-chan ctl-ch)
    (go-loop [prices (<! items-ch)]
