           {:title "Upload"
            :on-click #(when @file-input-ref
                         (when-let [form @form-ref]
-                          (let [up-chan (req/upload! form)]
+                          (let [up-chan      (req/upload! form)
+                                upload-state (r/cursor app-state [:uploads])]
                             (go-loop []
                                      (when-let [delta (<! up-chan)]
-                                       (swap! upload-state merge delta)
+                                       (swap! upload-state merge
+                                              {(hash up-chan) delta})
                                        (recur))))))}
           [:i.fa.fa-upload]]]
 

                      (-> path (split "\\") last)  ; C:\fakepath\file-name
                      "No file selected.")))]]]

       [track-upload upload-state]])))

;; -------------------------
;; Tracks


(defn upload-section []
  (let [form-ref       (r/atom nil)
        file-input-ref (r/atom nil)]
    (fn []
      [:section#upload
       [:h2 "Upload"]
