> + (with-parameters ((%current-target-system target)) > + (let* ((os (operating-system-for-image image)) > + (image* (image-with-os image os)) > + (target (image-target image)) > + (register-closures? (has-guix-service-type? os)) > + (bootcfg (operating-system-bootcfg os)) > + (bootloader (bootloader-configuration-bootloader > + (operating-system-bootloader os)))) > > would do the trick. I went ahead and pushed a variant of this as c9f6e2e5bdff186583bdc360832b57f4c56e3427. Thanks, Mathieu