--- a/UIPainterView.st	Fri Sep 16 13:05:17 2016 +0200
+++ b/UIPainterView.st	Fri Sep 30 16:45:36 2016 +0200
@@ -1701,13 +1701,13 @@
 
     specArray := spec literalArrayEncoding.
 
-    str  := WriteStream on:String new.
+    str  := WriteStream on:''.
     UISpecification prettyPrintSpecArray:specArray on:str indent:4.
     specCode := str contents.
 
     (specCode includes:$!!) ifTrue:[
         "/ oops - must be chunk format ...
-        str  := WriteStream on:String new.
+        str  := WriteStream on:''.
         str nextPutAllAsChunk:specCode.
         specCode := str contents.
     ].