--- a/SourceCodeManagerUtilities.st Fri Apr 01 06:37:19 2016 +0200
+++ b/SourceCodeManagerUtilities.st Sat Apr 02 06:55:21 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