--- a/Tools_MethodCategoryList.st	Mon Aug 22 16:33:28 2011 +0200
+++ b/Tools_MethodCategoryList.st	Thu Aug 25 12:19:08 2011 +0200
@@ -1584,7 +1584,7 @@
 !
 
 methodInfoFor:aMethod in:mclass selector:selector lazy:lazy
-    |info isDocumentationMethod isVersionMethod def|
+    |info isDocumentationMethod isVersionMethod def methodsPackage|
 
     "/ the first at:ifAbsent: is aktually not needed - it is here to
     "/ reduce the average blocking time, and to allow for debugging the info generating
@@ -1598,6 +1598,8 @@
             "/ notify me to update the list, when all the lazy info is avail...
         ] ifFalse:[
             true "aMethod mclass language isSmalltalk" ifTrue:[
+                methodsPackage := aMethod package.
+
                 info := CachedMethodInfo new.
                 info isObsolete:(aMethod isObsolete).
                 info sendsSuper:(aMethod superMessages notEmptyOrNil).
@@ -1607,10 +1609,10 @@
                 info isDocumentationMethod:isDocumentationMethod.
                 info isLongMethod:( self methodIsMarkedAsLong:aMethod ).
 
-                aMethod package ~= mclass package ifTrue:[
-                    aMethod package ~= #'__NoProject__' ifTrue:[
+                methodsPackage ~= mclass package ifTrue:[
+                    methodsPackage ~= #'__NoProject__' ifTrue:[
                         info isExtensionMethod:true.
-                        info isOverride:( (def := aMethod package asPackageId projectDefinitionClass) notNil
+                        info isOverride:( (def := methodsPackage asPackageId projectDefinitionClass) notNil
                                           and:[ (def methodOverwrittenBy:aMethod ) notNil ])
                     ]
                 ] ifFalse:[
@@ -1931,11 +1933,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.71 2011-08-18 08:05:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.72 2011-08-25 10:19:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.71 2011-08-18 08:05:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.72 2011-08-25 10:19:08 cg Exp $'
 ! !
 
 MethodCategoryList initialize!