diff --git a/gnu/bootloader.scm b/gnu/bootloader.scm
index 122e350874..736f119527 100644
--- a/gnu/bootloader.scm
+++ b/gnu/bootloader.scm
@@ -132,9 +132,9 @@ (define (bootloader-configuration-target config)
   (or (%bootloader-configuration-target config)
       (let ((device (bootloader-configuration-device config)))
         (when device
-          (issue-deprecation-warning
-           "The 'device' field of bootloader configurations is deprecated."
-           "Use 'target' instead."))
+          (warning
+           (G_ "The 'device' field of bootloader configurations is deprecated.~%"))
+          (warning (G_ "Use 'target' instead.~%")))
         device)))