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

(defn reconstruct-vote-matrix
  [votes]
  (let [new-nmat (nm/named-matrix)
        ;; Flip the signs on the votes XXX (remove when we switch)
        votes (map #(update-in % [:vote] (partial * -1)) votes)
        vote-tuples (map #(map % [:pid :tid :vote]) votes)]
    (nm/update-nmat new-nmat vote-tuples)))


       (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"
