--- a/CVSSourceCodeManagementSettingsAppl.st	Tue May 07 17:30:29 2013 +0200
+++ b/CVSSourceCodeManagementSettingsAppl.st	Tue May 07 17:31:59 2013 +0200
@@ -804,6 +804,10 @@
 
     rootLocal := cvsRoot withoutPrefix:':local:'.
 
+    term showCR:(('Close this terminal window, when finished') allBold colorizeAllWith:Color red).
+    term showCR:''.
+    term endEntry.
+
     Delay waitForSeconds:1.
     cmd := 'md "%1"' bindWith:rootLocal.
     term sendLine:cmd.
@@ -827,7 +831,6 @@
         ^ self.
     ].
 
-    cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
     term := VT100TerminalView open.
     term topView 
         label:'CVS Login for ' , cvsRoot;
@@ -839,7 +842,11 @@
     term showCR:(('Please enter the CVS-password then close this terminal window.') allBold colorizeAllWith:Color red).
     term showCR:''.
     term endEntry.
+
     Delay waitForSeconds:1.
+    cmd := 'cvs -d "%1" login' bindWith:cvsRoot.
+    term sendLine:cmd.
+    cmd := 'exit'.
     term sendLine:cmd.
 
     "
@@ -1126,10 +1133,10 @@
 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.28 2013-05-07 15:30:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.29 2013-05-07 15:31:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.28 2013-05-07 15:30:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.29 2013-05-07 15:31:59 cg Exp $'
 ! !