 
     :answer-aggregate
     (do
-        (map/add-data data)
-        (tmpl/output-map-stats (analyser/map-stats data (@app-state :neighborhoods)) (:key data)))
+      (map/add-data data)
+      (tmpl/output-map-stats (analyser/map-stats data (@app-state :neighborhoods)) (:key data)))
 
-    nil ; incomplete answers, to be aggregated
-    (async/put! incomplete-channel data)
-    
-))
+    :answers ; incomplete answers, to be aggregated
+      (async/put! incomplete-channel (:results data))))
 
 
 (defn receive-partial-data

   (loop [received-keys #{}
          data {}]
     (let [val (<! channel)

           cdata              (js->clj val)
           category           (category cdata)
           aggregate-id       (keyword (category-to-map-id category))

        first) "properties") "category")))

(defn handle-new-data [data incomplete-channel user-channel]
  (case (:resource-type data)
    :divisions
    (if (< 1 (count (:results data)))
      ; no id, got all neighborhoods
      (let [neighborhoods
            (sort-by #(:name %)
