--- a/BeeProjectDefinitionWriter.st	Wed Oct 17 19:47:05 2018 +0200
+++ b/BeeProjectDefinitionWriter.st	Wed Oct 24 11:59:44 2018 +0100
@@ -57,9 +57,9 @@
 !BeeProjectDefinitionWriter methodsFor:'source writing'!
 
 fileOutClasses: classes on: stream
-    | classesToFileout |
+    | classesToFileout classesToRename |
 
-    classesToFileout := classes reject:[:cls | cls isSubclassOf: ProjectDefinition ].
+    classesToFileout := classes reject:[:cls | cls isProjectDefinition or:[cls isSharedPool]].
     classesToFileout topologicalSort:[:a :b | b isSubclassOf:a].
 
     classesToFileout do:[:cls | 
@@ -67,12 +67,19 @@
             self error:'Cannot file out private class: ',cls name.
         ].
     ].  
+
+    classesToRename := Dictionary new.
+    BeeSourcePorter new collectClassRewritesFrom: (classesToFileout collect:[:c|c name]) into: classesToRename.
+
     classesToFileout do:[:class |  
-        stream nextPutAll: 'project addClass: '; nextPutAll: class name storeString; nextPutAll: '.'; cr.
+        | name |
+
+        name := classesToRename at: class name ifAbsent:[ class name ].
+        stream nextPutAll: 'project addClass: '; nextPutAll: name asSymbol storeString; nextPutAll: '.'; cr.
     ].
     stream cr.
 
-    "Modified: / 07-09-2016 / 14:34:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-10-2018 / 17:14:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutExtensions:methods on: stream