             (aggregate-averages (map #(.. ^ExecutorStats % get_specific get_bolt get_execute_ms_avg)
                                      stats-seq)
                                 (map #(.. ^ExecutorStats % get_specific get_bolt get_executed)
-                                     stats-seq))}
-           )))
+                                     stats-seq))
+            })))
 
 (defn aggregate-spout-stats [stats-seq include-sys?]
   (let [stats-seq (collectify stats-seq)]

(defn component-link [storm-id id]
  (link-to (url-format "/topology/%s/component/%s" storm-id id) id))

(defn spout-comp-table [top-id summ-map errors window include-sys?]
  (sorted-table
   ["Id" "Executors" "Tasks" "Emitted" "Transferred" "Complete latency (ms)"

      (sum-tasks summs)
      (get-in stats [:emitted window])
      (get-in stats [:transferred window])
      (render-capacity (compute-bolt-capacity summs))
      (float-str (get-in stats [:execute-latencies window]))
      (get-in stats [:executed window])
      (float-str (get-in stats [:process-latencies window]))
