--- a/SmalltalkCodeGeneratorTool.st	Fri Sep 30 16:45:49 2016 +0200
+++ b/SmalltalkCodeGeneratorTool.st	Fri Sep 30 16:46:08 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -501,7 +503,7 @@
                             (val ? maxSoFar) max:maxSoFar
                          ].
 
-    initCode := WriteStream on: String new.
+    initCode := WriteStream on:''.
     initCode nextPutLine:'initialize'.
     runValue := maxValue + 1.
     enumValues keysAndValuesDo:[:idx :eachVariableName |
@@ -796,7 +798,7 @@
 
     poolVars := nonMetaClass classVarNames.
 
-    initCode := WriteStream on: String new.
+    initCode := WriteStream on:''.
     initCode nextPutLine:'initialize'.
 
     poolVars do:[:eachVariableName |