          map
          (fn [& vote-cols-for-groups]
            (->>
-             (mapv initial-comment-stats vote-cols-for-groups)
+             (mapv comment-stats vote-cols-for-groups)
              (mapv-rest add-comparitive-stats)))))})
 
 

    ; reduce with indices, so we have tids
    (with-indices stats)
    (reduce
      (fn [result [tid comment-stats]]
        ; Inner reduce folds data into result for each group in comment stats
        ; XXX - could this be an assoc-in?
        (reduce

                  (gr-assoc gr :best-agree (assoc comment-conv-stats :tid tid))
                  gr))))
          result
          (zip ids stats)))
      ; initialize result hash
      (into {} (map #(vector % {:best nil :best-agree nil :sufficient []}) ids)))
    ; If no sufficient, use best; otherwise sort sufficient and take 5
