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

    type :- utils/ResponseType]
   (let [code 400
         response (fn [e]
                    (log/error (trs "Bad Request:" (:msg e)))
                    (case type
                      :json (utils/json-response code e)
                      :plain (utils/plain-response code (:msg e))))]

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