diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp
index bb9eb9f542840868b7832e272e9225e151113ac6..1d2d7443ba5141c5c02724ad5e31ff8b19346f0e 100644
--- a/ansi-tests/compile-file.lsp
+++ b/ansi-tests/compile-file.lsp
@@ -60,7 +60,7 @@
 	   (if (and v1 v2 v3 v4 v5 v6 (eql v7 t) v8) t
 	     (list v1 v2 v3 v4 v5 v6 v7 v8)))
 	 (progn
-	   (load target-pathname)
+	   (load output-truename)
 	   (funcall funname)))))))
 
 (deftest compile-file.1
@@ -141,7 +141,8 @@
   (let ((s (open "foo.fasl" :direction :output :if-exists :supersede
 		 :if-does-not-exist :create)))
     (close s)
-    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
+    (compile-file-test "compile-file-test-file.lsp"
+		       'compile-file-test-fun.1
 		       :output-file s))
   t nil)