--- a/BeeSourceWriter.st	Thu Oct 11 20:14:15 2018 +0200
+++ b/BeeSourceWriter.st	Thu Oct 11 22:32:55 2018 +0200
@@ -195,16 +195,17 @@
 !
 
 fileOutDefinitionOf:aNonMetaClass on:aStream withNameSpace: withNameSpacePragma
-    | revinfo |
+    | revinfo author |
 
     revinfo := aNonMetaClass revisionInfo.
-    aStream nextPutAll: '!!ClassDefinition timeStamp:'; nextPutAll: timestamp storeString; nextPutAll: ' author: '; nextPutAll: revinfo author asString storeString; nextPutAll:' className: '; nextPutAll: aNonMetaClass name asString storeString; nextPutAll: '!!'.
+    author := revinfo notNil ifTrue:[ revinfo author ] ifFalse:[ UserPreferences current historyManagerSignature ].
+    aStream nextPutAll: '!!ClassDefinition timeStamp:'; nextPutAll: timestamp storeString; nextPutAll: ' author: '; nextPutAll: author asString storeString; nextPutAll:' className: '; nextPutAll: aNonMetaClass name asString storeString; nextPutAll: '!!'.
     aStream cr; cr.       
     aNonMetaClass basicFileOutDefinitionOn:aStream withNameSpace: false withPackage: false.
     aStream nextPut: $!!; cr.
 
     "Created: / 14-04-2015 / 12:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-09-2016 / 15:21:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-10-2018 / 22:31:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutMethod:aMethod on:aStream