Fixed with-event-loop macro, added unwind-protect form.