--- a/ProjectDefinition.st	Sat Oct 01 19:26:11 2016 +0200
+++ b/ProjectDefinition.st	Sat Oct 01 20:38:20 2016 +0200
@@ -2371,7 +2371,7 @@
     | rules cls processed |
 
     cls := self.
-    rules := String new writeStream.
+    rules := '' writeStream.
     processed := Set new.
     [ cls ~~ Object ] whileTrue:[
         cls class selectorsAndMethodsDo:[:selector :method |