         body (-> (:body response)
                  (xml/parse)
                  (zip/xml-zip))]
-    (if (= 200 status)
+    (if (or
+         (= 200 status)
+         (acceptable-error? (get params "Action") status body))
       body
       (throw-aws-exception "EC2" (get params "Action") url status body))))
 

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

(defn- get-request
  [params]
  (let [url (v2-url ec2-url (merge {"Version" ec2-version} params))

(defn- compare-sg
  [sg-id aws local]
  (let [remote (build-config aws)
        ingress (compare-config  (:Ingress local) (:Ingress remote))
        egress  (compare-config (:Egress local) (:Egress remote))]
    (ensure-ingress (:GroupName local) sg-id ingress)
    (ensure-egress (:GroupName local) sg-id egress)))

