diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index ec098a08eb9f23f35b8fad833134e0a87f0f9f10..be726e212524ac347bee1a4d0d4d373de998bfeb 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -289,7 +289,8 @@ (define* (perform-action action os
                (when grub?
                  (unless (install-grub grub.cfg device target)
                    (leave (_ "failed to install GRUB on device '~a'~%")
-                          device)))))
+                          device)))
+               (return #t)))
             ((init)
              (newline)
              (format #t (_ "initializing operating system under '~a'...~%")