--- a/BeeSourceWriter.st	Tue Oct 30 14:59:25 2018 +0000
+++ b/BeeSourceWriter.st	Mon Nov 05 20:52:42 2018 +0000
@@ -209,8 +209,13 @@
 
     revinfo := aNonMetaClass revisionInfo.
     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 nameWithoutNameSpacePrefix asString storeString; nextPutAll: '!!'.
-    aStream cr; cr.       
+    aStream nextPutAll: '!!ClassDefinition timeStamp:'; nextPutAll: timestamp storeString; 
+                              nextPutAll: ' author: '; nextPutAll: author asString storeString; 
+                            nextPutAll:' className: '; nextPutAll: aNonMetaClass nameWithoutNameSpacePrefix asString storeString.
+    project notNil ifTrue:[ 
+                     aStream nextPutAll: ' project: ';    nextPutAll: project asString storeString.
+    ].  
+    aStream nextPutAll: '!!'; cr; cr.       
 
     definition := String streamContents:[:s |
         aNonMetaClass basicFileOutDefinitionOn:s withNameSpace: false withPackage: false.
@@ -223,7 +228,7 @@
     aStream nextPut: $!!; cr.
 
     "Created: / 14-04-2015 / 12:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-10-2018 / 11:15:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-10-2018 / 18:49:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutMethod:aMethod on:aStream
@@ -267,7 +272,11 @@
                 nextPutAll: ' author: ';    nextPutAll: (author ? 'Unknown') storeString;
                 nextPutAll: ' className: '; nextPutAll: aMethod mclass nameWithoutNameSpacePrefix storeString; 
                 nextPutAll: ' selector: ';  nextPutAll: aMethod selector storeString; 
-                nextPutAll: ' category: ';  nextPutAll: aMethod category storeString; 
+                nextPutAll: ' category: ';  nextPutAll: aMethod category storeString.
+        project notNil ifTrue:[ 
+        aStream nextPutAll: ' project: ';    nextPutAll: project asString storeString.
+        ].
+        aStream
                 nextPutAll: '!!'.
         aStream cr.
         aStream nextChunkPut:possiblyRewrittenSource.
@@ -275,7 +284,7 @@
     ].
 
     "Created: / 14-04-2015 / 12:41:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 17-10-2018 / 10:50:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-10-2018 / 18:48:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutMethods: methods on: stream
@@ -300,7 +309,7 @@
             stream nextPutAll:'  project: '; nextPutAll: project storeString.
     ].
     stream nextPut: $!!; cr.
-    stream nextPutAll: '(SmalltalkProject getProject: '''; nextPutAll: (project ? 'Default'); nextPutAll: ''') addPoolDictionary: '; nextPutAll: pool name storeString; nextPut: $!!; cr.
+    stream nextPutAll: '''(SmalltalkProject getProject: '''; nextPutAll: (project ? 'Default'); nextPutAll: ''') addPoolDictionary: '; nextPutAll: pool name storeString; nextPut: $!!; cr.
 
     stream nextPutAll: pool name; cr.
     pool keysAndValuesDo:[ :name :value |
@@ -309,7 +318,7 @@
     stream tab; nextPutAll: 'yourself!!'; cr.
 
     "Created: / 27-10-2018 / 17:58:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 28-10-2018 / 14:57:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-10-2018 / 14:48:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 generateHeaderWithCopyrightOn:outStream