         (log/infof "Sending quesitonnaire for %s (%s users and %s questions)" domain users questions)
         (dorun
          (pmap (fn [user]
-                 (let [answers (send-questionnaire conn user (sort-by :question/order questions))]
+                 (let [answers (send-questionnaire conn token user (sort-by :question/order questions))]
                    (submit-answers db-conn domain user answers)))
                users))
         ((:shutdown-fn conn)))

                        :answer (:text (async/<!! answer-chan))}))
               []
               questions)]
      (log/infof "Questionnaire completed for %s. %s questions answered" username (count qas))
      (async/unsub dm-pub username answer-chan)
      (async/close! answer-chan)

                                       :text msg})))

(defn send-questionnaire
  [conn token username questions]
  (try
    (send-to-user! conn username
                   (format "Greetings %s. I have a few questions for you." username))
