Make with-init unwind-protect actually protect