        (ko/where {:zid zid :created [<= final-vote-timestamp]})
        ; ordering by tid is important, since we rely on this ordering to determine the index within the comps, which needs to correspond to the tid
        (ko/order [:zid :tid :pid :created] :asc)))))
+
+(defn get-conversation-votes
+  [& args]
+  ;; Flip the signs on the votes XXX (remove when we switch)
+  (map  #(update-in % [:vote] (partial * -1))
+       (apply get-conversation-votes* args)))
 
 (defn get-conversation-data
   "Return a map with :topic and :description keys"

                 (count (filter #(= (:pid %) ptpt) comments))
                 (count (remove nil? row))
                 ;; XXX God damn aggree vs disagree...
                 (count (filter #{-1} row))
                 (count (filter #{1} row))]
                row))
        (nm/rownames mat)
        (.matrix mat)))))

  (map
    (fn [{:keys [pid] :as comment-data}]
      (let [comment-votes (filter #(= pid (:pid %)) votes)
            ;; Fixed this upstream, for now; so should be good to go once we've fixed it at the source. But
            ;; keep an eye on it for now... XXX
            aggrees (filter #(= 1 (:vote %)) comment-votes)
            disagrees (filter #(= -1 (:vote %)) comment-votes)]
        (assoc comment-data :aggrees (count aggrees) :disagrees (count disagrees))))
    comments))

