--- a/PerforceSourceCodeManager.st	Fri Mar 22 11:11:55 2013 +0000
+++ b/PerforceSourceCodeManager.st	Thu Mar 28 12:22:48 2013 +0000
@@ -62,6 +62,7 @@
 "
 ! !
 
+
 !PerforceSourceCodeManager class methodsFor:'accessing'!
 
 flushPerforceWorkspaces
@@ -282,6 +283,7 @@
     "Modified: / 01-06-2012 / 11:14:15 / cg"
 ! !
 
+
 !PerforceSourceCodeManager class methodsFor:'actions'!
 
 checkinClass:aClass fileName:classFileName directory:packageDir module:moduleDir logMessage:logMessage force:force
@@ -515,6 +517,7 @@
     ].
 ! !
 
+
 !PerforceSourceCodeManager class methodsFor:'basic administration'!
 
 basicCheckinClass:cls fileName:classFileName directory:packageDir module:moduleName logMessage:logMessage force:forceArg submit:doSubmit
@@ -1018,6 +1021,7 @@
     "Modified: / 21-12-2011 / 23:33:53 / cg"
 ! !
 
+
 !PerforceSourceCodeManager class methodsFor:'private'!
 
 getCheckInDefinitionForClass:aClass
@@ -1100,6 +1104,7 @@
     ^PerforceVersionInfo
 ! !
 
+
 !PerforceSourceCodeManager class methodsFor:'queries'!
 
 checkInInfoDialogClass
@@ -1389,6 +1394,7 @@
     "Modified: / 20-04-2011 / 12:49:41 / cg"
 ! !
 
+
 !PerforceSourceCodeManager class methodsFor:'queries - settings'!
 
 getPerforceDefaultSettingsString
@@ -1518,6 +1524,7 @@
 "
 ! !
 
+
 !PerforceSourceCodeManager class methodsFor:'subclass responsibility'!
 
 getExistingContainersInModule:aModule directory:aPackage
@@ -1546,6 +1553,7 @@
     self shouldImplement
 ! !
 
+
 !PerforceSourceCodeManager::CheckInDefinition methodsFor:'accessing'!
 
 classFileName
@@ -1617,13 +1625,11 @@
 setLogMessage:something
     something isNil ifTrue:[
         logMessage := ''.
+        ^ true.
     ] ifFalse:[
         logMessage := something asSingleByteStringIfPossible.
-        logMessage bitsPerCharacter ~~ 8 ifTrue:[
-            ^ false.
-        ].
+        ^ logMessage isWideString not.
     ].
-    ^ true
 !
 
 sourceFileName
@@ -1646,6 +1652,7 @@
     workSpace := something.
 ! !
 
+
 !PerforceSourceCodeManager::CheckInDefinition methodsFor:'actions'!
 
 getBinaryRevision
@@ -1767,6 +1774,7 @@
     ^ Number readFrom:(ReadStream on:newestRevisionString) onError:nil
 ! !
 
+
 !PerforceSourceCodeManager::CheckInDefinition methodsFor:'queries'!
 
 definitionObjectString
@@ -1794,6 +1802,7 @@
     ^ (PackageId module:package directory:packageDir) asString. 
 ! !
 
+
 !PerforceSourceCodeManager::PerforceVersionInfo class methodsFor:'documentation'!
 
 documentation
@@ -1808,6 +1817,7 @@
 "
 ! !
 
+
 !PerforceSourceCodeManager::PerforceVersionInfo class methodsFor:'instance creation'!
 
 fromRCSString:aString
@@ -1833,9 +1843,9 @@
     "/ $-Id:       fileName rev date time user state $
     "/
     (firstWord = ('$','Header:')        "/ WARNING: need to split the strings to prevent CVS from expanding them
-    or:[firstWord = ('','Header:') 
+    or:[firstWord = ('§','Header:') 
     or:[firstWord = ('$','Id:') 
-    or:[firstWord = ('','Id:')]]]) ifTrue:[
+    or:[firstWord = ('§','Id:')]]]) ifTrue:[
         s skipSeparators.
         rest := s upToEnd.
         hashIndex := rest indexOf:$#.
@@ -1867,7 +1877,7 @@
      Timestamp now printOn:s format:'%h-%m-%s.%i'.
      versionInfo time:s contents.
      PerforceVersionInfo fromRCSString:versionInfo getVersionString.
-     PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.29 2012/11/02 10:25:27 cg Exp $'
+     PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.30 2012-12-12 23:02:52 stefan Exp $'
     "
 
     "Modified: / 01-06-2012 / 13:32:40 / cg"
@@ -1882,6 +1892,7 @@
     ^inst
 ! !
 
+
 !PerforceSourceCodeManager::PerforceVersionInfo methodsFor:'accessing'!
 
 repositoryPathName
@@ -1916,6 +1927,7 @@
     "Created: / 22-10-2008 / 20:50:39 / cg"
 ! !
 
+
 !PerforceSourceCodeManager::PerforceVersionInfo methodsFor:'queries'!
 
 getVersionString
@@ -1965,14 +1977,15 @@
     ^ stream contents
 ! !
 
+
 !PerforceSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.29 2012/11/02 10:25:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.30 2012-12-12 23:02:52 stefan Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.29 2012/11/02 10:25:27 cg Exp §'
+    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.30 2012-12-12 23:02:52 stefan Exp $'
 !
 
 version_HG