--- a/MethodCategoryChange.st	Wed Apr 14 15:40:38 2010 +0200
+++ b/MethodCategoryChange.st	Wed Apr 14 15:40:43 2010 +0200
@@ -90,10 +90,20 @@
 
 isMethodCategoryChange
     ^ true
+!
+
+isMethodCodeChange
+    "true if this is a method's code change (not package, category etc.)"
+
+    ^ false
 ! !
 
 !MethodCategoryChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.19 2009-09-22 17:03:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.20 2010-04-14 13:40:43 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.20 2010-04-14 13:40:43 cg Exp $'
 ! !