X-Git-Url: http://git.boinkor.net/gitweb/sbcl.git/blobdiff_plain/898c92c45c812861f9e309ae1a5b5b3e7c33c01b..01b41fdd69d197da85f86a2e4f8971f3ef9dda82:/tests/run-tests.lisp

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index d2942b1..8cb583f 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -188,6 +188,7 @@
   ;; What? No SB-POSIX:EXECV?
   `(let ((process (sb-ext:run-program "/bin/sh"
                                       (list (native-namestring ,file))
+                                      :environment (test-util::test-env)
                                       :output *error-output*)))
      (sb-ext:quit :unix-status (process-exit-code process))))