--- a/AbstractFileBrowser.st	Thu Oct 15 02:24:42 2015 +0200
+++ b/AbstractFileBrowser.st	Thu Oct 15 12:25:36 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -5643,6 +5641,25 @@
 
 !AbstractFileBrowser methodsFor:'menu actions-scm-cvs'!
 
+canCvsAddAndCommit
+
+    |selectedFiles|
+
+    selectedFiles := self currentSelectedObjects.
+    ^ (selectedFiles notEmpty and:[self currentFilesAreInSameDirectory]).
+!
+
+canRemoveCVSContainer
+    ^ self currentSelectedFiles 
+        contains:[:fileName|
+            |dirOfFile cvsDir|
+
+            dirOfFile := self getDirWithoutFileName:fileName.
+            cvsDir := dirOfFile construct:'CVS'.
+            cvsDir isDirectory
+        ].
+!
+
 commitFilesToCVS:files
     |numFiles|
 
@@ -8484,27 +8501,6 @@
     "Modified: / 04-12-2006 / 13:15:28 / cg"
 ! !
 
-!AbstractFileBrowser methodsFor:'menu queries-cvs'!
-
-canCvsAddAndCommit
-
-    |selectedFiles|
-
-    selectedFiles := self currentSelectedObjects.
-    ^ (selectedFiles notEmpty and:[self currentFilesAreInSameDirectory]).
-!
-
-canRemoveCVSContainer
-    ^ self currentSelectedFiles 
-        contains:[:fileName|
-            |dirOfFile cvsDir|
-
-            dirOfFile := self getDirWithoutFileName:fileName.
-            cvsDir := dirOfFile construct:'CVS'.
-            cvsDir isDirectory
-        ].
-! !
-
 !AbstractFileBrowser methodsFor:'menu queries-tools'!
 
 anySTFilesOrDirectoriesPresent