--- a/UIPainterView.st	Wed Aug 13 15:16:57 1997 +0200
+++ b/UIPainterView.st	Fri Aug 15 17:36:02 1997 +0200
@@ -499,7 +499,7 @@
         ]
     ].
     spec := FullSpec new.
-    spec fromBuilder:self components:(SpecCollection new collection:specArray).
+    spec fromBuilder:self topView components:(SpecCollection new collection:specArray).
     specArray := spec literalArrayEncoding.
 
     str := WriteStream on:String new.
@@ -909,6 +909,11 @@
     "
     |props name builder v|
 
+    aSpec class == WindowSpec ifTrue:[
+        aSpec setAttributesIn:self topView with:(UIBuilder new).
+        ^ treeView canvasNameChanged:aSpec name.
+    ].
+
     self singleSelection notNil ifTrue:[
         self withSelectionHiddenDo:[
             self transaction:#specification selectionDo:[:aView|