diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 56228601cca2d968dd1b81a589282c758dbf6cfa..6a2586086ef3aa6711714fcff1b5d6f0e6d41395 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -164,8 +164,8 @@ (define (maybe-copy to-copy)
             (copy-closure to-copy target #:log-port log-port)))))
 
   (let ((os-dir   (derivation->output-path os-drv))
-        (format   (lift %store-monad format))
-        (populate (lift2 %store-monad populate-root-file-system)))
+        (format   (lift format %store-monad))
+        (populate (lift2 populate-root-file-system %store-monad)))
 
     (mbegin %store-monad
       (maybe-copy os-dir)