--- a/CVSSourceCodeManager.st	Thu Jun 02 09:19:54 2016 +0100
+++ b/CVSSourceCodeManager.st	Mon Jun 06 12:32:59 2016 +0100
@@ -199,12 +199,16 @@
 !
 
 exeptsPrivateSTXRepositoryModuleRoot
-    "only valid within exept"
+    "the actual stx repository as used within exept.
+     Only valid within exept"
     
     ^ ':pserver:',(OperatingSystem getLoginName),'@cvs.bh.exept.de:/cvs/stx'.
 !
 
 exeptsPublicSTXRepositoryModuleRoot
+    "the public repository, which is a read-only copy of the exept-internal repository.
+     Updated every night." 
+     
     ^ ':pserver:cvs@cvs.smalltalk-x.de:/cvs/stx'.
 !
 
@@ -223,12 +227,18 @@
      is set, check if cvs commands can be executed and install myself as the
      SourceCodeManager if this works out ok"
 
-    | s f top cvsCmd |
-
-    CVSCommandSemaphore := (Semaphore new:10) name:'Concurrent CVS Commands'.    "/ at most 10 cvs activities concurrently
-    CVSCommitOptions := ''.
-    CVSUpdateOptions := ''.
-    RemoteCVS := true.
+    | s f top |
+
+    CVSCommandSemaphore isNil ifTrue:[
+        CVSCommandSemaphore := (Semaphore new:10) name:'Concurrent CVS Commands'.    "/ at most 10 cvs activities concurrently
+    ].
+    CVSCommitOptions isNil ifTrue:[
+        CVSCommitOptions := ''.
+        CVSUpdateOptions := ''.
+    ].
+    RemoteCVS isNil ifTrue:[
+        RemoteCVS := true.
+    ].
     DisabledModules := nil.
     CVSModuleRoots isNil ifTrue:[
         CVSModuleRoots := Dictionary new.
@@ -247,14 +257,6 @@
         ].
     ].
 
-    cvsCmd := self cvsExecutable.
-
-"/    ok := OperatingSystem canExecuteCommand:cvsCmd.
-"/    ok ifFalse:[
-"/        'CVSSourceCodeManager [warning]: disabled because no >>cvs<< command was found' infoPrintCR.
-"/        ^ self
-"/    ].
-
     UseWorkTree := false.
 
     "/
@@ -266,7 +268,6 @@
         RemoteCVS := false
     ].
 
-"/    Smalltalk at:#SourceCodeManager put:self.
     DefaultManager isNil ifTrue:[
         DefaultManager := self.    
     ].