--- a/AbstractFileBrowser.st	Fri Mar 06 16:01:27 2009 +0100
+++ b/AbstractFileBrowser.st	Fri Mar 06 22:08:07 2009 +0100
@@ -4542,19 +4542,22 @@
         log notNil ifTrue:[
             sel size > 0 ifTrue:[
                 sel do:[:fn |
-                
+                    |nameArg|
+
+                    nameArg := '"',fn baseName,'"'.
+
                     dir := self getDirWithoutFileName:fn.
-                    cmd := 'cvs add ',logArg,' ',fn baseName.
+                    cmd := 'cvs add ',logArg,' ',nameArg.
                     (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream.
 
-                    cmd := ('cvs commit -l ',logArg,' ',fn baseName).
+                    cmd := ('cvs commit -l ',logArg,' ',nameArg).
                     (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream.
 
                     asBinary ifTrue:[
-                        cmd := ('cvs admin -kb ' , fn baseName).
+                        cmd := ('cvs admin -kb ' , nameArg).
                         (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream.
 
-                        cmd := ('cvs upd ' , fn baseName).
+                        cmd := ('cvs upd ' , nameArg).
                         (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream.
                     ].
                 ]
@@ -7733,5 +7736,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.399 2009-03-04 17:21:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.400 2009-03-06 21:08:07 cg Exp $'
 ! !