--- a/MethodChange.st	Tue Sep 22 19:02:50 2009 +0200
+++ b/MethodChange.st	Tue Sep 22 19:03:32 2009 +0200
@@ -255,12 +255,20 @@
     "Created: / 09-10-2006 / 13:58:09 / cg"
 ! !
 
-!MethodChange methodsFor:'queries'!
+!MethodChange methodsFor:'testing'!
 
 isMethodChange
+    "true if this is a method related change"
+
     ^ true
 
     "Created: / 7.2.1998 / 19:26:59 / cg"
+!
+
+isMethodCodeChange
+    "true if this is a method's code change (not package, category etc.)"
+
+    ^ self class == MethodChange
 ! !
 
 !MethodChange::NamedMethodChange class methodsFor:'instance creation'!
@@ -288,5 +296,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.48 2009-09-18 12:43:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.49 2009-09-22 17:03:32 cg Exp $'
 ! !