diff --git a/gnu/system/grub.scm b/gnu/system/grub.scm
index 4f9bde6a62..bcfc3beae6 100644
--- a/gnu/system/grub.scm
+++ b/gnu/system/grub.scm
@@ -298,9 +298,9 @@ (define entry->gexp
                   #$initrd)))))
 
   (mlet %store-monad ((sugar (eye-candy config
-                                        (menu-entry-device (first entries))
+                                        (menu-entry-device (first all-entries))
                                         (menu-entry-device-mount-point
-                                         (first entries))
+                                         (first all-entries))
                                         #:system system
                                         #:port #~port)))
     (define builder