--- a/Method.st	Wed Sep 07 09:01:09 2011 +0200
+++ b/Method.st	Wed Sep 07 09:29:58 2011 +0200
@@ -2460,6 +2460,14 @@
     ^ self parse:#'parseMethodSilent:' return:#isEmptyMethod or:false.
 !
 
+isExtension
+    "return true, if this method is an extension (i.e. package ~= classes' package)"
+
+    ^ package ~= self mclass package
+
+    "Created: / 07-09-2011 / 09:29:13 / cg"
+!
+
 isExternalLibraryFunctionCall
     "Return true, if this is an externalLibraryFunction call."
 
@@ -3541,11 +3549,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.367 2011-09-07 07:01:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.368 2011-09-07 07:29:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.367 2011-09-07 07:01:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.368 2011-09-07 07:29:58 cg Exp $'
 !
 
 version_SVN