diff -r 90fed7f51b31 -r e0b4240e621e AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Mon Mar 23 20:49:44 2009 +0100
+++ b/AbstractFileBrowser.st	Tue Mar 24 11:00:58 2009 +0100
@@ -4522,7 +4522,7 @@
 !
 
 cvsAddAndCommitAsBinary:asBinary
-    |sel log logArg cmd dir executionBlock nameString|
+    |sel log logArg binArg cmd dir executionBlock nameString|
 
     log := Dialog
         requestText:(resources string:'Enter initial log message')
@@ -4537,6 +4537,10 @@
         logArg := '-m ''' , log , ''''.
     ].
 
+    binArg := ''.
+    asBinary ifTrue:[
+        binArg := '-kb '.
+    ].
     sel := self currentSelectedFiles.
     executionBlock := [ : stream |
         log notNil ifTrue:[
@@ -4547,12 +4551,14 @@
                     nameArg := '"',fn baseName,'"'.
 
                     dir := self getDirWithoutFileName:fn.
-                    cmd := 'cvs add ',logArg,' ',nameArg.
+                    cmd := 'cvs add ',logArg,' ',binArg,nameArg.
                     (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream.
 
                     cmd := ('cvs commit -l ',logArg,' ',nameArg).
                     (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream.
-
+                    "/ mhmh - it seems that only old CVS implementations (at least turqoise)
+                    "/ support and need the 'admin -kb' command.
+                    "/ newer ones use the '-kb' option in the 'cvs add' command
                     asBinary ifTrue:[
                         cmd := ('cvs admin -kb ' , nameArg).
                         (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream.
@@ -7737,5 +7743,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.401 2009-03-06 21:09:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.402 2009-03-24 10:00:58 cg Exp $'
 ! !