--- a/UIPainter.st	Wed Sep 10 10:33:05 1997 +0200
+++ b/UIPainter.st	Wed Sep 10 10:35:21 1997 +0200
@@ -2649,7 +2649,8 @@
     spec name:(listOfNodes at:1) name.
 
     windowSpec notNil ifTrue:[
-        spec  menu:(windowSpec menu).
+        spec menu:(windowSpec menu).
+        spec performer:(windowSpec performer).
         spec flags:(windowSpec flags).
     ].
   ^ spec
@@ -2775,7 +2776,8 @@
               components:(SpecCollection new collection:aSpecArray).
 
     windowSpec notNil ifTrue:[
-        fullSpec window  menu:(windowSpec menu).
+        fullSpec window menu:(windowSpec menu).
+        fullSpec window performer:(windowSpec performer).
         fullSpec window flags:(windowSpec flags).
     ].    
     ^ fullSpec literalArrayEncoding.
@@ -2786,7 +2788,8 @@
     "
     windowSpec := WindowSpec new.
 
-    windowSpec  menu:(aWindowSpec menu).
+    windowSpec menu:(aWindowSpec menu).
+    windowSpec performer:(aWindowSpec performer).
     windowSpec flags:(aWindowSpec flags).
 
     self canvasNameChanged:aWindowSpec name.