diff --git a/bundle.lisp b/bundle.lisp
index 91af8803e5cc7d6930d4647d18f67559545c5c41..654a77647ddad8cd3f073160bb8ca2cca86590f4 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -472,7 +472,8 @@ itself.")) ;; operation on a system and its dependencies
   ;;  (setf *load-system-operation* 'load-bundle-op))
 
   (defun asdf-library-pathname ()
-    #+ecl (compile-file-pathname "sys:asdf" :type :object)
+    #+ecl (or (probe-file* (compile-file-pathname "sys:asdf" :type :lib)) ;; new style
+              (probe-file* (compile-file-pathname "sys:asdf" :type :object))) ;; old style
     #+mkcl (make-pathname :type (bundle-pathname-type :lib) :defaults #p"sys:contrib;asdf"))
 
   (defun compiler-library-pathname ()