--- a/FileBasedSourceCodeManager.st	Sun Apr 29 15:24:44 2018 +0200
+++ b/FileBasedSourceCodeManager.st	Mon Apr 30 21:52:05 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2011 by Claus Gittinger
               All Rights Reserved
@@ -237,7 +239,7 @@
 checkinClass:aClass fileName:classFileName directory:packageDir module:moduleDir source:sourceFile logMessage:logMessage force:force
     "Return true if ok, false if not."
 
-    |targetDir newestRevision newRevision newFile packageMode filter outStream|
+    |targetDir newestRevision newRevision newFile packageMode filter outStream logFile|
 
     targetDir := self packageDirectoryForModule:moduleDir package:packageDir.
     targetDir exists ifFalse:[
@@ -258,7 +260,8 @@
     ] ifFalse:[
         newRevision := self revisionAfter:newestRevision
     ].
-    newFile := (targetDir construct:classFileName,'_',newRevision printString).
+    newFile := targetDir construct:(classFileName,'_',newRevision printString).
+    logFile := targetDir construct:(classFileName,'_',newRevision printString,'.log').
 
     self updateVersionMethodOf:aClass for:(self revisionStringFor:aClass inModule:moduleDir directory:packageDir container:classFileName revision:newRevision).
 
@@ -296,6 +299,11 @@
         ^ false.
     ].
 
+    logMessage isEmptyOrNil ifTrue:[
+        logFile contents:'no log message'.
+    ] ifFalse:[
+        logFile contents:logMessage.
+    ].
     ^ true
 
     "Created: / 21-12-2011 / 19:01:07 / cg"
@@ -463,6 +471,6 @@
 !
 
 version_FileRepository
-    ^ '$Path: stx/libbasic3/FileBasedSourceCodeManager.st, Version: 13, User: cg, Time: 2011-12-22T00:40:40.985$'
+    ^ '$Path: stx/libbasic3/FileBasedSourceCodeManager.st, Version: 2, User: cg, Time: 2018-04-30T09:17:20.474+02$'
 ! !