       (update-in [:stats-history]
                  (partial scsv/vectorize {:header [:n-votes :n-comments :n-visitors :n-voters :n-commenters]}))
       (update-in [:votes]
-                 (partial scsv/vectorize {:header [:created :tid :pid :vote]
+                 (partial scsv/vectorize {:header [:created :datetime :tid :pid :vote]
                                           :format-header {:created   "timestamp"
+                                                          :datetime  "datetime"
                                                           :tid       "comment-id"
                                                           :pid       "voter-id"
                                                           :vote      "vote"}}))
       (update-in [:comments]
-                 (partial scsv/vectorize {:header [:created :tid :pid :aggrees :disagrees :mod :txt]
+                 (partial scsv/vectorize {:header [:created :datetime :tid :pid :aggrees :disagrees :mod :txt]
                                           :format-header {:created   "timestamp"
+                                                          :datetime  "datetime"
                                                           :tid       "comment-id"
                                                           :pid       "author-id"
                                                           :aggrees   "agrees"

            ;; 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))



        (ko/where {:zid zid})))
    first))

(defn get-participation-data*
  ([darwin zid]
   (kdb/with-db (db-spec darwin)
     (ko/select "participants"
