--- a/SourceCodeManagerUtilities.st	Fri Apr 01 00:54:08 2016 +0200
+++ b/SourceCodeManagerUtilities.st	Fri Apr 01 23:53:05 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 eXept Software AG
               All Rights Reserved
@@ -3379,9 +3377,11 @@
     logMessage notNil ifTrue:[  
         logMessage := logMessage asSingleByteStringReplaceInvalidWith:$?
     ].
-    reasonLine notNil ifTrue:[
-        logMessage := reasonLine , '\' withCRs , (logMessage ? '')
+    reasonLine isNil ifTrue:[
+        reasonLine := '#OTHER'. 
     ].
+    logMessage := reasonLine , ' by ',OperatingSystem getLoginName,'\' withCRs 
+                  , (logMessage ? '').
     aBlock value:logMessage value:checkinInfo.
     ^ true