--- a/UIPainterView.st	Fri Jan 23 14:59:24 1998 +0100
+++ b/UIPainterView.st	Fri Jan 23 15:12:07 1998 +0100
@@ -827,7 +827,7 @@
     spec := treeView generateFullSpecForComponents:spec.
     str  := WriteStream on:String new.
     UISpecification prettyPrintSpecArray:spec on:str indent:5.
-    specCode := self generateChunkFor:(str contents).
+    specCode := str contents.
 
     (specCode includes:$!!) ifTrue:[
         "/ oops - must be chunk format ...