diff --git a/tools/test-environment.lisp b/tools/test-environment.lisp
index 734a689ccf6966d3ecacea428433d0babd764539..ed866f9dbfdf6b8c85c94a50a0ecfcbac060c2b2 100644
--- a/tools/test-environment.lisp
+++ b/tools/test-environment.lisp
@@ -114,8 +114,8 @@
            (setf lisp (get-lisp lisp)))
           (lisps ((lisps *test-lisps*))
            (setf lisps (get-lisps lisps)))
-          (upgrade-lisps ((lisps *upgrade-test-lisps*))
-           (setf upgrade-lisps (get-upgrade-lisps lisps)))
+          (upgrade-lisps ((upgrade-lisps *upgrade-test-lisps*))
+           (setf upgrade-lisps (get-upgrade-lisps upgrade-lisps)))
           (systems ((systems *test-systems*)))
           (test-scripts ((test-scripts *test-scripts*))
            (setf test-scripts (get-test-scripts test-scripts)))