diff --git a/test/test-program.script b/test/test-program.script
index a31bba906526fb20da92b57ad102d47008d00c3a..38bff4cb5530c0ab18f263db7dfbe50c749b7649 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -108,8 +108,8 @@
 #+(or ecl mkcl)
 (progn
   (DBG "Now create an program without UIOP")
-  (assert (probe-file (asdf/bundle::asdf-library-pathname)))
-  (assert (probe-file (asdf/bundle::compiler-library-pathname)))
+  (assert (probe-file (asdf/bundle::system-module-pathname "asdf")))
+  (assert (probe-file (asdf/bundle::system-module-pathname "cmp")))
   (def-test-system hello-no-uiop
     :class program-system
     :no-uiop t