--- a/SourceCodeManagerUtilities.st Wed Nov 07 17:49:29 2012 +0100
+++ b/SourceCodeManagerUtilities.st Wed Nov 07 17:54:17 2012 +0100
@@ -3486,7 +3486,7 @@
aClass theNonMetaclass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
|setOfLiterals setOfSentMessages|
- mthd package = aClass package ifTrue:[
+ mthd isExtension ifFalse:[
setOfLiterals := mthd literals. "/ try without parsing first.
(badStuff contains:[:eachEntry | setOfLiterals includes:eachEntry first]) ifTrue:[
setOfSentMessages := mthd messagesSent.
@@ -3831,9 +3831,9 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.263 2012-11-06 17:48:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.264 2012-11-07 16:54:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.263 2012-11-06 17:48:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.264 2012-11-07 16:54:17 cg Exp $'
! !