diff --git a/gnu/system.scm b/gnu/system.scm
index 6f795d6292be6b6fc97d2af96070163cdd7ff6ee..bb7e8531ee429f927e8c489400966e30e85af14a 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -250,7 +250,7 @@ (define device-sexp->device
                        rest ...)
      (boot-parameters
       (label label)
-      (root-device (device->sexp root))
+      (root-device (device-sexp->device root))
 
       (bootloader-name
        (match (assq 'bootloader-name rest)