--- a/UIPainterView.st	Thu Jan 22 20:28:03 1998 +0100
+++ b/UIPainterView.st	Thu Jan 22 20:59:48 1998 +0100
@@ -815,7 +815,7 @@
 !
 
 generateWindowSpecMethodSource
-    |spec str code category cls mthd|
+    |spec str code category cls mthd specCode|
 
     spec := OrderedCollection new.
 
@@ -827,6 +827,14 @@
     spec := treeView generateFullSpecForComponents:spec.
     str  := WriteStream on:String new.
     UISpecification prettyPrintSpecArray:spec on:str indent:5.
+    specCode := str contents.
+
+    (specCode includes:$!!) ifTrue:[
+        "/ oops - must be chunk format ...
+        str  := WriteStream on:String new.
+        str nextPutAllAsChunk:specCode.
+        specCode := str contents.
+    ].
 
     "/ if that method already exists, do not overwrite the category
 
@@ -859,7 +867,7 @@
             , '\'
             , '    <resource: #canvas>\\'
             , '    ^\' 
-            , '     ', str contents
+            , '     ', specCode
             , '\'
             , '!! !!'
             , '\\'.