   (>!! progress-chan progress)
   context)
 
-(defn- inc-and-update-progress
+(defn- inc-and-notify-progress
   [context record-type]
   (-> context
       (update-in [:progress record-type :imported]
                  (fnil inc 0))
-      update-progress))
+      notify-progress))
 
 (defmulti import-record
   (fn [_ record]

      (import-record record)

      (report-progress? record-type)
      (inc-and-update-progress record-type))))

(defn import-data
  "Reads the contents from the specified input and saves

  [context {:keys [record-type record-count]}]
  (-> context
      (assoc-in [:progress record-type :total] record-count)
      notify-progress))

(defmethod import-record :account
  [context account]
