--- a/CVSSourceCodeManager.st	Sat Oct 12 10:37:44 2013 +0200
+++ b/CVSSourceCodeManager.st	Fri Nov 08 11:34:29 2013 +0100
@@ -185,10 +185,19 @@
 
 !CVSSourceCodeManager class methodsFor:'initialization'!
 
+addExeptsPrivateRepositoryToModuleRoots
+    CVSModuleRoots at:'stx' put:(self exeptsPrivateSTXRepositoryModuleRoot).
+    CVSModuleRoots at:'exept' put:(self exeptsPrivateSTXRepositoryModuleRoot).
+!
+
 addExeptsPublicRepositoryToModuleRoots
     CVSModuleRoots at:'stx' put:(self exeptsPublicSTXRepositoryModuleRoot)
 !
 
+exeptsPrivateSTXRepositoryModuleRoot
+    ^ ':pserver:',(OperatingSystem getLoginName),'@cvs.bh.exept.de:/cvs/stx'.
+!
+
 exeptsPublicSTXRepositoryModuleRoot
     ^ ':pserver:cvs@cvs.smalltalk-x.de:/cvs/stx'.
 !
@@ -217,8 +226,8 @@
     DisabledModules := nil.
     CVSModuleRoots isNil ifTrue:[
         CVSModuleRoots := Dictionary new.
-        "/ self addExeptsPublicRepositoryToModuleRoots.
     ].
+    "/ self possiblyAddExeptsPrivateRepositoryToModuleRoots.
 
     "/
     "/ if CVSROOT is non-empty and both cvs and co are available
@@ -324,6 +333,22 @@
     "Created: / 13.8.1997 / 17:20:57 / cg"
     "Modified: / 25.9.1997 / 12:28:05 / stefan"
     "Modified: / 2.11.1997 / 17:08:27 / cg"
+!
+
+possiblyAddExeptsPrivateRepositoryToModuleRoots
+    "/ for exept's convenience: if this is a host in our domain,
+    "/ add the exept repository.
+
+    |h addr|
+
+    (h := OperatingSystem getHostName) notEmptyOrNil ifTrue:[
+        addr := IPSocketAddress hostName:h.
+        addr notNil ifTrue:[
+            (addr hostAddress startsWith: #[172 23 1]) ifTrue:[
+                self addExeptsPrivateRepositoryToModuleRoots
+            ]
+        ].
+    ].
 ! !
 
 !CVSSourceCodeManager class methodsFor:'accessing'!
@@ -5316,11 +5341,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.480 2013-08-26 08:41:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.481 2013-11-08 10:34:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.480 2013-08-26 08:41:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.481 2013-11-08 10:34:29 cg Exp $'
 ! !