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 @@ OUTPUT) tuples, using the build options in OPTS."
                      (return #t))
                     (else
                      (create-environment inputs paths pure?)
-                     (return (system command)))))))))))
+                     (return (exit (status:exit-val (system command)))))))))))))