     type :- utils/ResponseType]
    (let [code 503
          response (fn [e]
-                    (log/error (trs "Service Unavailable:" (:msg e)))
+                    (log/error e (trs "Service Unavailable:" (:msg e)))
                     (case type
                       :json (utils/json-response code e)
                       :plain (utils/plain-response code (:msg e))))]

    type :- utils/ResponseType]
   (let [code 400
         response (fn [e]
                    (log/error (trs "Submitted data is invalid: {0}" (:msg e)))
                    (case type
                      :json (utils/json-response code e)
                      :plain (utils/plain-response code (:msg e))))]

         response (fn [e]
                    (let [msg (trs "Something unexpected happened: {0}"
                                   (select-keys e [:error :value :type]))]
                      (log/error e msg)
                      (case type
                        :json (utils/json-response code
                                                   {:kind :application-error
