   (stop [this]
     (with-instance-id 
        (debug "stopping" instance-id)
+       (when-not (first (:addresses (with-ctx eip/describe-eip instance-id)))
+         (debug "clearing dynamic ip from system")
+         (s/update-system (spec :system-id) 
+           (dissoc-in* (s/get-system (spec :system-id)) [:machine :ip])))
        (with-ctx ec2/stop-instances instance-id) 
        (wait-for-status this "stopped" [5 :minute])))
 

      (with-instance-id 
         (instance-desc endpoint instance-id :state :name)) 
      (catch [:type ::aws:missing-id] e 
        (info "No AWS instance id, most chances this instance hasn't been created yet") false))))

(def defaults {:aws {:min-count 1 :max-count 1}})


      (debug "starting" instance-id)
      (with-ctx ec2/start-instances instance-id) 
      (wait-for-status this "running" [5 :minute]) 
      (when-let [ip (get-in spec [:machine :ip])] 
        (debug (<<  "Associating existing ip ~{ip} to instance-id"))
        (with-ctx eip/assoc-pub-ip instance-id ip))
      (update-ip spec endpoint instance-id)
      (wait-for-ssh endpoint instance-id user [5 :minute])
      ))

  (delete [this]
    (with-instance-id
