--- a/AbstractLauncherApplication.st	Wed Jul 21 18:15:01 2010 +0200
+++ b/AbstractLauncherApplication.st	Fri Jul 23 11:49:40 2010 +0200
@@ -5674,32 +5674,30 @@
 
     resources := self owningClass classResources.
 
-    OperatingSystem getDomainName = 'exept' ifFalse:[
-	defaultsList := #(
-			    'host:/cvs/stx'
-			    ':pserver:user@host:/cvs/stx'
-			 ).
-	defaultsList := defaultsList copyWith:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx')
-    ] ifTrue:[
-	defaultsList := #(
-			    '/cvs/stx'
-			    'exept:/cvs/stx'
-			 ).
-	defaultsList := defaultsList copyWith:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
+    OperatingSystem getDomainName = 'bh.exept.de' ifTrue:[
+        defaultsList := #(
+                            'cvs.bh.exept.de:/cvs/stx'
+                         ).
+        defaultsList := defaultsList copyWith:(':pserver:' , OperatingSystem getLoginName , '@cvs.bh.exept.de:/cvs/stx')
+    ] ifFalse:[
+        defaultsList := #(
+                            ':pserver:user@CVSHOST:/cvs/stx'
+                         ).
+        defaultsList := defaultsList copyWith:(':pserver:' , OperatingSystem getLoginName , '@CVSHOST:/cvs/stx')
     ].
 
     OperatingSystem isUNIXlike ifTrue:[
-	defaultsList := defaultsList , #(
-			  '/cvs/stx'
-			 ).
+        defaultsList := defaultsList , #(
+                          '/cvs/stx'
+                         ).
     ] ifFalse:[
-	OperatingSystem isMSDOSlike ifTrue:[
-	    defaultsList := defaultsList , #(
-			      ':local:c:\cvs\stx'
-			     ).
-	] ifFalse:[
-	    "there might be more here in the future"
-	]
+        OperatingSystem isMSDOSlike ifTrue:[
+            defaultsList := defaultsList , #(
+                              ':local:c:\cvs\stx'
+                             ).
+        ] ifFalse:[
+            "there might be more here in the future"
+        ]
     ].
 
     cvsRootHolder := CVSSourceCodeManager repositoryName ? '/cvs/stx'.
@@ -5722,52 +5720,52 @@
 
     bindings at:#selectedPerModuleRoot put:(selectedPerModuleRoot := nil asValue).
     selectedPerModuleRoot
-	     onChangeEvaluate:[
-			    |module cvsRoot|
-
-			    acceptChannel value:true.
-			    module := selectedPerModuleRoot value.
-			    removeEnabled value:true.
-			    cvsRoot := rootsPerModule at:module ifAbsent:''.
-			    (bindings at:#perModuleRootModule) value:module.
-			    (bindings at:#perModuleRoot) value:cvsRoot.
-	     ].
+             onChangeEvaluate:[
+                            |module cvsRoot|
+
+                            acceptChannel value:true.
+                            module := selectedPerModuleRoot value.
+                            removeEnabled value:true.
+                            cvsRoot := rootsPerModule at:module ifAbsent:''.
+                            (bindings at:#perModuleRootModule) value:module.
+                            (bindings at:#perModuleRoot) value:cvsRoot.
+             ].
 
     bindings at:#help put:[
-			    WindowGroup activeGroup withWaitCursorDo:[
-				HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'
-			    ]
-			  ].
+                            WindowGroup activeGroup withWaitCursorDo:[
+                                HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'
+                            ]
+                          ].
 
     bindings at:#addPerModuleRoot put:[
-			    |module cvsRoot|
-
-			    acceptChannel value:true.
-			    module := (bindings at:#perModuleRootModule) value.
-			    cvsRoot := (bindings at:#perModuleRoot) value.
-			    (listOfModules includes:module) ifFalse:[
-				listOfModules add:module.
-				listOfModules sort.
-			    ].
-			    cvsRoot size > 0 ifTrue:[
-				rootsPerModule at:module put:cvsRoot.
-			    ].
-			  ].
+                            |module cvsRoot|
+
+                            acceptChannel value:true.
+                            module := (bindings at:#perModuleRootModule) value.
+                            cvsRoot := (bindings at:#perModuleRoot) value.
+                            (listOfModules includes:module) ifFalse:[
+                                listOfModules add:module.
+                                listOfModules sort.
+                            ].
+                            cvsRoot size > 0 ifTrue:[
+                                rootsPerModule at:module put:cvsRoot.
+                            ].
+                          ].
     bindings at:#removePerModuleRoot put:[
-			    |module|
-
-			    acceptChannel value:true.
-			    module := (bindings at:#perModuleRootModule) value.
-			    listOfModules remove:module ifAbsent:nil.
-			    rootsPerModule removeKey:module ifAbsent:nil.
-			    (bindings at:#perModuleRootModule) value:nil.
-			    (bindings at:#perModuleRoot) value:nil.
-			  ].
+                            |module|
+
+                            acceptChannel value:true.
+                            module := (bindings at:#perModuleRootModule) value.
+                            listOfModules remove:module ifAbsent:nil.
+                            rootsPerModule removeKey:module ifAbsent:nil.
+                            (bindings at:#perModuleRootModule) value:nil.
+                            (bindings at:#perModuleRoot) value:nil.
+                          ].
 
     dialog := SimpleDialog new.
     dialog resources:resources.
     (dialog openSpec:(self cvsSetupSpec) withBindings:bindings) ifFalse:[
-	^ self
+        ^ self
     ].
 
     acceptChannel value.
@@ -6750,9 +6748,9 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.392 2010-04-16 17:19:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.393 2010-07-23 09:49:40 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.392 2010-04-16 17:19:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.393 2010-07-23 09:49:40 stefan Exp $'
 ! !