diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index d92ec7d5a5..8eb32c62bc 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -497,9 +497,10 @@ (define (reinstall-bootloader store number)
          (old-entries (map boot-parameters->menu-entry old-params)))
     (run-with-store store
       (mlet* %store-monad
-          ((bootcfg ((bootloader-configuration-file-generator bootloader)
-                     bootloader-config entries
-                     #:old-entries old-entries))
+          ((bootcfg (lower-object
+                     ((bootloader-configuration-file-generator bootloader)
+                      bootloader-config entries
+                      #:old-entries old-entries)))
            (bootcfg-file -> (bootloader-configuration-file bootloader))
            (target -> "/")
            (drvs -> (list bootcfg)))