diff --git a/test/test-program.script b/test/test-program.script
index 90be6d127d44e11a7f23ef8e933e5ce5e6a1256c..4d6ba6f0f623483cbcb40c08b8d36cfe8ad72421 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -18,7 +18,7 @@
       (list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
             *uiop-directory*
             ;; try finding xcvb's lisp-invocation right next to asdf.
-            (subpathname *asdf-directory* "../xcvb/")))
+            (subpathname *asdf-directory* "../lisp-invocation/")))
 (unless (find-system :lisp-invocation nil)
   ;; try harder by enabling the user's source-registry
   (initialize-source-registry ""))