diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 7a4a2a6a06a4bc18f01443743da9f15c54ff1182..c71ad4cbe90aeab5d280a103c6dae46a5d6a2259 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -113,7 +113,7 @@ (define to-copy
   (populate-root-file-system target)
 
   (when grub?
-    (unless (install-grub grub.cfg device target)
+    (unless (false-if-exception (install-grub grub.cfg device target))
       (leave (_ "failed to install GRUB on device '~a'~%") device))))