--- a/MethodChange.st	Tue Oct 30 10:38:39 2012 +0100
+++ b/MethodChange.st	Tue Oct 30 14:57:12 2012 +0100
@@ -76,7 +76,7 @@
 !MethodChange class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.66 2012-07-31 12:24:31 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.67 2012-10-30 13:57:12 cg Exp $'
 ! !
 
 !MethodChange methodsFor:'accessing'!
@@ -404,7 +404,6 @@
     "Created: / 09-10-2006 / 13:58:09 / cg"
 ! !
 
-
 !MethodChange methodsFor:'testing'!
 
 isMethodChange
@@ -415,6 +414,11 @@
     "Created: / 7.2.1998 / 19:26:59 / cg"
 !
 
+isMethodChangeForExtensionsVersionMethod
+    ^  self isMethodCodeChange
+    and:[ AbstractSourceCodeManager isExtensionsVersionMethodSelector:self selector ]
+!
+
 isMethodChangeForVersionMethod
     ^  self isMethodCodeChange
     and:[ AbstractSourceCodeManager isVersionMethodSelector:self selector ]