diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 6769a602b190a6f29ff114ee1314671ca5cec944..212b49f00897ec9c8e9f44cba794a9ccbdb25456 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -802,8 +802,8 @@ (define bootcfg (check-initrd-modules os))) (mlet* %store-monad - ((target (current-target-system)) - (image -> (find-image file-system-type target)) + ((target* (current-target-system)) + (image -> (find-image file-system-type target*)) (sys (system-derivation-for-action os image action #:file-system-type file-system-type #:image-size image-size