previos "typo" was a missing package prefix from earlier mass-removal.

diff --git a/asdf-ops.lisp b/asdf-ops.lisp
index 02b7136..08c4379 100644 (file)
--- a/asdf-ops.lisp
+++ b/asdf-ops.lisp
@@ -143,7 +143,7 @@ to the base of the system."
 ;;; XXX: nasty hack.
 ;;; Necessary to support asd files that weren't rewritten to use
 ;;; instrumented-module/instrumented-cl-source-file classes.
-(defmethod module-default-component-class :around ((c module))
+(defmethod asdf::module-default-component-class :around ((c module))
   (let ((what-would-asdf-do (call-next-method)))
     (if (member what-would-asdf-do `(nil cl-source-file
                                          ,(find-class 'cl-source-file)))