     :zinvite))
 
 
-(defn get-conversation-votes
+(defn get-conversation-votes*
   ([zid]
    (kdb/with-db (db/db-spec)
      (ko/select db/votes

  (map
    (fn [{:keys [pid] :as comment-data}]
      (let [comment-votes (filter #(= pid (:pid %)) votes)
            aggrees (filter #(= -1 (:vote %)) comment-votes)
            disagrees (filter #(= 1 (:vote %)) comment-votes)]
        (assoc comment-data :aggrees (count aggrees) :disagrees (count disagrees))))
    comments))


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