SourceCodeManagerUtilities.st
changeset 2977 e5bfe652373f
parent 2974 df015da58d8a
child 3134 93b8f75424c5
--- 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 $'
 ! !