--- a/AbstractFileBrowser.st	Wed Apr 02 14:59:38 2008 +0200
+++ b/AbstractFileBrowser.st	Wed Apr 02 17:45:08 2008 +0200
@@ -4567,29 +4567,43 @@
 cvsUpdateAll
     | cmd |
 
-    cmd := 'cvs upd -l'.
-    self executeCommand:cmd.
+    CVSSourceCodeManager notNil ifTrue:[
+        cmd := CVSSourceCodeManager cvsExecutable.
+    ] ifFalse:[
+        cmd := 'cvs'.
+    ].
+
+    self executeCommand:(cmd, ' upd -l').
 !
 
 cvsUpdateAllRecursive
     | cmd |
 
-    cmd := 'cvs upd -d'.
-    self executeCommand:cmd.
+    CVSSourceCodeManager notNil ifTrue:[
+        cmd := CVSSourceCodeManager cvsExecutable.
+    ] ifFalse:[
+        cmd := 'cvs'.
+    ].
+    self executeCommand:(cmd, ' upd -d').
 !
 
 cvsUpdateSelection
-    | selectedFiles stream|
-
-    selectedFiles:= self currentSelectedFiles.
+    |stream cmd|
+
+    CVSSourceCodeManager notNil ifTrue:[
+        cmd := CVSSourceCodeManager cvsExecutable.
+    ] ifFalse:[
+        cmd := 'cvs'.
+    ].
+
     stream := WriteStream on:''.
-    stream nextPutAll:'cvs upd '.
-    selectedFiles do:[: file |
+    stream nextPutAll:cmd; nextPutAll:' upd '.
+    self currentSelectedFiles do:[: file |
+        stream nextPut:$'.
         stream nextPutAll:file baseName.
-        stream space.
+        stream nextPutAll:''' '.
     ].
     self executeCommand:stream contents.
-    stream close.
 ! !
 
 !AbstractFileBrowser methodsFor:'menu actions-file'!
@@ -7363,5 +7377,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.364 2008-04-01 11:12:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.365 2008-04-02 15:45:08 stefan Exp $'
 ! !