diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm
index 7a44b9a503..4466a0c632 100644
--- a/guix/scripts/deploy.scm
+++ b/guix/scripts/deploy.scm
@@ -152,4 +152,6 @@ (define (handle-argument arg result)
         (with-build-handler (build-notifier #:use-substitutes?
                                             (assoc-ref opts 'substitutes?))
           (parameterize ((%graft? (assq-ref opts 'graft?)))
-            (for-each (cut deploy-machine* store <>) machines)))))))
+            (map/accumulate-builds store
+                                   (cut deploy-machine* store <>)
+                                   machines)))))))