diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index c6cac469e4..ecdbc7aa37 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -281,4 +281,4 @@ (define (handle-argument arg result)
                      (return #t))
                     (else
                      (create-environment inputs paths pure?)
-                     (return (system command)))))))))))
+                     (return (exit (status:exit-val (system command)))))))))))))