Index: /branches/working-0711/ccl/lib/source-files.lisp
===================================================================
--- /branches/working-0711/ccl/lib/source-files.lisp	(revision 9739)
+++ /branches/working-0711/ccl/lib/source-files.lisp	(revision 9740)
@@ -435,6 +435,6 @@
                                                 (find-definitions-for-name name type))
                                         :test #'def-eql))))
-
       (typecase thing
+        (method-function (collect-def 'method (%method-function-method thing)))
         (function  (if (getf (%lfun-info thing) 'function-source-note)
                      (let* ((function-source-note (getf (%lfun-info thing) 'function-source-note)))
@@ -447,5 +447,4 @@
         (method    (collect-def 'method thing))
         (symbol    (collect-def 't thing))))
-
     definitions))