diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index b4bf66819f..97508f4bd6 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -818,7 +818,7 @@ and TARGET arguments."
                                 (exit 1)))
                        (#$installer #$bootloader #$device #$target)
                        (format #t "bootloader successfully installed on '~a'~%"
-                               device))))))
+                               #$device))))))
 
 (define* (perform-action action os
                          #:key skip-safety-checks?