--- a/WindowGroup.st	Thu Oct 07 13:21:44 1999 +0200
+++ b/WindowGroup.st	Thu Oct 07 16:32:09 1999 +0200
@@ -849,7 +849,8 @@
             nm := 'window handler'.
         ].
         myProcess name:nm.
-        myProcess beGroupLeader.
+        "/ myProcess beGroupLeader.
+        myProcess beGUIProcess.
 
         "/
         "/ when the process gets suspended, 
@@ -2103,6 +2104,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.186 1999-10-07 10:39:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.187 1999-10-07 14:32:09 ca Exp $'
 ! !
 WindowGroup initialize!