diff --git a/test/test-compile-file-failure.lisp b/test/test-compile-file-failure.lisp
index 5149add01b2adafc2c7de213ff5f769a25dcb184..83be5b7d9110d62b3fda7395a735272f85b11af6 100644
--- a/test/test-compile-file-failure.lisp
+++ b/test/test-compile-file-failure.lisp
@@ -1,6 +1,6 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   ;; CLISP 2.48 has a bug that makes this test fail. Work around:
   #+(or clisp ecl) (when (and (eq asdf:*compile-file-failure-behaviour* :error)
-                              #+ecl (equal (fasl-type) "fasc"))
+                              #+ecl (equal (asdf::fasl-type) "fasc"))
                      (error 'asdf:compile-error :operation "op" :component "comp"))
   (warn "Warning."))