--- a/MethodPrivacyChange.st	Wed Apr 14 15:40:28 2010 +0200
+++ b/MethodPrivacyChange.st	Wed Apr 14 15:40:33 2010 +0200
@@ -82,8 +82,20 @@
     "Modified: / 09-10-2006 / 13:59:35 / cg"
 ! !
 
+!MethodPrivacyChange methodsFor:'testing'!
+
+isMethodCodeChange
+    "true if this is a method's code change (not package, category etc.)"
+
+    ^ false
+! !
+
 !MethodPrivacyChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPrivacyChange.st,v 1.10 2009-09-18 12:43:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPrivacyChange.st,v 1.11 2010-04-14 13:40:33 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPrivacyChange.st,v 1.11 2010-04-14 13:40:33 cg Exp $'
 ! !