                  (zip/xml-zip))]
     (if (= 200 status)
       body
-      (throw-aws-exception "EC2" (get params "Action") url status (get-message body)))))
+      (throw-aws-exception "EC2" (get params "Action") url status body))))
 
 (defn iam-request
   [params]

                 (zip/xml-zip))]
    (if (= 200 status)
      body
      (throw-aws-exception "ELB" (get params "Action") url status (get-message body))))

  (defn decode-message
    [encoded-message]

(def ^:const sts-url (env :service-aws-sts-url))
(def ^:const sts-version (env :service-aws-sts-api-version))

(defn- get-message
  [body]
  (str (or (xml1-> body :Error :Message text) (xml1-> body :Errors :Error :Message text))))

(defn- get-code
  [body]
  (str (or (xml1-> body :Error :Code text) (xml1-> body :Errors :Error :Code text))))

(defn throw-aws-exception
  [title action url status body]
  (throw+ {:type ::aws
           :title (str title " request failed while performing the action '" action "'")
           :url url
           :status status
           :message (get-message body)
           :code (get-code body)}))

(defn ec2-request
  [params]
