          (> n-ptpts 9999999999)   large-conv-update
          :else             small-conv-update)
             {:conv conv :votes votes :opts opts}))
-    (catch Exception e 
+    (catch Exception e
+      ; XXX - hmm... have to figure out how to deal with this hook in production
       (println "Update Failure:" (.getMessage e))
       (dump-edn {:conv conv :votes votes :opts opts :error (str e)})
       (throw e))))

       ;;; where the indices in the arrays are bids
       :votes-base (plmb/fnk [bid-to-pid rating-mat]
                     (time2 "votes-base"
                       (greedy
                       (let [tids (:cols rating-mat)]
                         (reduce
                           (fn [o entry]

(defn conv-update [conv votes & {:keys [med-cutoff large-cutoff]
                                 :or {med-cutoff 100 large-cutoff 1000}
                                 :as opts}]
  (println "\nStarting new conv update!")
  (try
    (let [ptpts   (:rows (:rating-mat conv))
          n-ptpts (count (distinct (into ptpts (map :pid votes))))]
