diff --git a/test/run-tests.sh b/test/run-tests.sh
index 4e9c0779254d6e88a9d19c6e6ee7a4d5d864220e..4a1c86575348c07ce23a7168552e49ef4062aea1 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -120,7 +120,7 @@ do_tests () {
         echo "or more interactively (and maybe with rlwrap or in emacs), start with:" >&2
         echo "(cd test ; $icmd )" >&2
         echo "then copy/paste:" >&2
-        echo "'(#.(load \"script-support.lisp\") #.(asdf-test::da) #.(load-asdf) #.(frob-packages) #.(load \"$i\"))" >&2
+        echo "'(#.(load \"script-support.lisp\") #.(asdf-test::da) #.(load-asdf) #.(frob-packages) #.(asdf::with-asdf-cache () (load \"$i\")))" >&2
       fi
       echo >&2
       echo >&2
diff --git a/test/test-force.script b/test/test-force.script
index 8404b7b49bb602ea2f7cf21da24156c2d90e305a..4a16f3d2bcd743756f6eb00267831f5d40765348 100644
--- a/test/test-force.script
+++ b/test/test-force.script
@@ -15,7 +15,7 @@
 (touch-file "file1.lisp" :timestamp date1)
 (touch-file file1 :timestamp date2)
 (load-system 'test-force)
-(assert (equal (get-file-stamp file1) date2))
+(assert-equal (get-file-stamp file1) date2)
 
 ;; forced, it should be later
 (load-system 'test-force :force t)
diff --git a/test/test-logical-pathname.script b/test/test-logical-pathname.script
index 7a2c9c0a3fd0ccc740e7e78dd819dbf83b23493c..739046cf7eb3d3b820b572176b899f013f704ccf 100644
--- a/test/test-logical-pathname.script
+++ b/test/test-logical-pathname.script
@@ -16,8 +16,8 @@
 
 (DBG :logical
      (logical-pathname-translations "ASDF")
-     (translate-logical-pathname "ASDF:test;test-force.asd")
-     (truename "ASDF:test;test-force.asd"))
+     (translate-logical-pathname "ASDF:test;test-logical-pathname.asd")
+     (truename "ASDF:test;test-logical-pathname.asd"))
 
 #+xcl (leave-test "GCL 2.6 doesn't do Logical pathnames well enough" 0)