--- a/CVSSourceCodeManager.st	Tue Mar 09 22:41:42 2004 +0100
+++ b/CVSSourceCodeManager.st	Thu Mar 11 10:55:56 2004 +0100
@@ -1608,9 +1608,14 @@
         ]
     ].
 
-    logMsg := logMessage.
-    (logMsg isNil or:[logMsg isEmpty]) ifTrue:[
-        logMsg := 'checkin from browser'.
+    logMessage isNil ifTrue:[
+        logMsg := ''.
+    ] ifFalse:[
+        logMsg := logMessage asSingleByteStringIfPossible.
+        logMsg bitsPerCharacter ~~ 8 ifTrue:[
+            'CVSSourceCodeManager [error]: cvs cannot handle unicode in logMessage' errorPrintCR.
+            ^ false.
+        ].    
     ].
 
     cmdOut := Filename newTemporary.
@@ -1683,7 +1688,7 @@
                 (Dialog confirm:('Someone seems to have removed the source container for ' , cls name , '\\Force new checkin ?') withCRs)
                 ifTrue:[
                     cls setBinaryRevision:nil.
-                    ^ self checkinClass:cls fileName:classFileName directory:packageDir module:moduleDir source:sourceFileName logMessage:logMessage force:force.
+                    ^ self checkinClass:cls fileName:classFileName directory:packageDir module:moduleDir source:sourceFileName logMessage:logMsg force:force.
                 ].
             ].
         ].
@@ -4373,7 +4378,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.281 2004-02-11 15:22:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.282 2004-03-11 09:55:56 stefan Exp $'
 ! !
 
 CVSSourceCodeManager initialize!