Bug fix in PackageEnvironment>>includesSelector:in:

Hi All!
There was a bug in  PackageEnvironment>>includesSelector:in:   .
methodFor: - it's a unimplemented message.

-------------  from
here ---------------------------------------------------------
includesSelector: aSelector in: aClass
 ^(environment includesSelector: aSelector in: aClass) and:
   [| method |
"sitny - 8 ÉÀÎÑ 2006 Ç.  - fix"
"  method := aClass methodFor: aSelector. "
   method := aClass lookupMethod: aSelector.  "this is fixed line"
   method notNil and: [packages includes: method owningPackage]]
-------------
end  ---------------------------------------------------------