 (let [error-message-map-fn (fn [passthrough-headers waiter-headers]
                              {:status 400
                               :non-waiter-headers (dissoc passthrough-headers "authorization")
-                              :x-waiter-headers waiter-headers})]
+                              :x-waiter-headers waiter-headers
+                              :log-level :warn})]
   (defn compute-service-description
     "Computes the service description applying any processing rules,
      It also validates the services description.

            (sling/throw+ {:type :service-description-error
                           :message exception-message
                           :friendly-error-message error-message
                           :status 400})))))

    ; Validate the cmd-type field
    (let [cmd-type (service-description-to-use "cmd-type")]

              (if error-on-missing
                (do
                  (log/info e "Error in kv-store fetch")
                  (throw (ex-info (str "Token not found: " token) {:status 400 :log-level :warn} e)))
                (log/info e "Ignoring kv-store fetch exception")))))
        token-data (when (seq token-data) ; populate token owner for backwards compatibility
                     (-> token-data
                         (utils/assoc-if-absent "owner" run-as-user)
                         (utils/assoc-if-absent "previous" {})))]
    (when (and error-on-missing (not token-data))
      (throw (ex-info (str "Token not found: " token) {:status 400 :log-level :warn})))
    (log/debug "Extracted data for" token "is" token-data)
    (when (or (not deleted) include-deleted)
      (select-keys token-data allowed-keys))))
