--- a/AbstractSourceCodeManager.st	Thu Jan 26 14:52:58 2012 +0100
+++ b/AbstractSourceCodeManager.st	Thu Jan 26 14:54:07 2012 +0100
@@ -12,18 +12,18 @@
 "{ Package: 'stx:libbasic3' }"
 
 Object subclass:#AbstractSourceCodeManager
-        instanceVariableNames:''
-        classVariableNames:'DefaultManager CachingSources CacheDirectoryName UseWorkTree
-                WorkTreeDirectoryName ManagerPerModule'
-        poolDictionaries:''
-        category:'System-SourceCodeManagement'
+	instanceVariableNames:''
+	classVariableNames:'DefaultManager CachingSources CacheDirectoryName UseWorkTree
+		WorkTreeDirectoryName ManagerPerModule'
+	poolDictionaries:''
+	category:'System-SourceCodeManagement'
 !
 
 Object subclass:#PackageAndManager
-        instanceVariableNames:'package managerTypeName'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractSourceCodeManager
+	instanceVariableNames:'package managerTypeName'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractSourceCodeManager
 !
 
 !AbstractSourceCodeManager class methodsFor:'documentation'!
@@ -1573,6 +1573,23 @@
     "Created: / 21-12-2011 / 19:15:35 / cg"
 !
 
+isVersionMethodForExtensionsSelector: selector 
+    "true if the given selector is for one of the manager's extensions version methods.
+     These are all named extensionVersion_XXX, where XXX is manager-specific (CVS, P4, SVN etc.).
+     For backward compatibility (times, when there was only one CVS sourcecode manager,
+     the selector named 'version' alone also counts as a version method
+     (which might be a somewhat bad idea in the long term...)."
+
+    selector isNil ifTrue: [^ false].
+
+    ^ selector == self nameOfVersionMethodForExtensions 
+    or:[selector startsWith: self prefixOfVersionMethodForExtensionsSelector]
+
+    "Modified (comment): / 09-07-2011 / 12:31:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 29-09-2011 / 14:56:15 / cg"
+    "Created: / 26-01-2012 / 14:53:34 / cg"
+!
+
 isVersionMethodSelector: selector 
     "true if the given selector is for one of the manager's version methods.
      These are all named version_XXX, where XXX is manager-specific (CVS, P4, SVN etc.).
@@ -3521,11 +3538,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.287 2012-01-26 13:52:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.288 2012-01-26 13:54:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.287 2012-01-26 13:52:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.288 2012-01-26 13:54:07 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!