--- a/UIPainterView.st	Thu Jan 22 20:59:48 1998 +0100
+++ b/UIPainterView.st	Thu Jan 22 21:06:47 1998 +0100
@@ -827,7 +827,7 @@
     spec := treeView generateFullSpecForComponents:spec.
     str  := WriteStream on:String new.
     UISpecification prettyPrintSpecArray:spec on:str indent:5.
-    specCode := str contents.
+    specCode := self generateChunkFor:(str contents).
 
     (specCode includes:$!!) ifTrue:[
         "/ oops - must be chunk format ...