--- a/AbstractSourceCodeManager.st	Wed Sep 26 18:09:58 2012 +0200
+++ b/AbstractSourceCodeManager.st	Wed Sep 26 18:16:18 2012 +0200
@@ -1616,6 +1616,15 @@
     "Created: / 26-09-2012 / 18:09:36 / cg"
 !
 
+isRevision:revision1 sameOrAfter:revision2
+    "true, if the dotted revision string revision1 is >= than revision2"
+
+    revision1 = revision2 ifTrue:[^ true].
+    ^ self isRevision:revision1 after:revision2
+
+    "Created: / 26-09-2012 / 18:15:58 / 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.).
@@ -3774,11 +3783,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.297 2012-09-26 16:09:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.298 2012-09-26 16:16:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.297 2012-09-26 16:09:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.298 2012-09-26 16:16:18 cg Exp $'
 !
 
 version_SVN