--- a/UIPainter.st	Thu Feb 26 11:00:11 1998 +0100
+++ b/UIPainter.st	Thu Feb 26 17:36:35 1998 +0100
@@ -2734,11 +2734,9 @@
 
     transcript := (self builder componentAt:#Transcript) scrolledView.
     topView := self window.
-    topView bePartner.
     topView label:'GUI Painter'.
 
     painterView openInGroup:(topView windowGroup).
-    painterView bePartner.
     painterView application:self.
     painterView open.
 
@@ -2746,7 +2744,6 @@
     selectionPanel := UISelectionPanel new.
     selectionPanel allButOpenInterface:#windowSpec.
     selectionPanel window openInGroup:(topView windowGroup).
-    selectionPanel window bePartner.
     selectionPanel openWindow.
     selectionPanel masterApplication:self.
 
@@ -2756,6 +2753,10 @@
     painterView iconLabel:'GUI Painter'.
     painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 
+    topView bePartner.
+    painterView bePartner.
+    selectionPanel window bePartner.
+
     selectionPanel window iconLabel:'GUI Painter'.
     selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).