--- a/WindowGroup.st	Wed Apr 07 17:43:03 2004 +0200
+++ b/WindowGroup.st	Wed Apr 07 17:55:42 2004 +0200
@@ -1316,9 +1316,7 @@
 
             (views isNil and:[topViews isNil]) ifTrue:[
                 myProcess notNil ifTrue:[
-                    p := myProcess.
-                    myProcess := nil.
-                    p terminate.
+                    self shutDownProcess.
                     "not reached - there is no life after death"
                 ].
                 "
@@ -2738,7 +2736,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.261 2004-04-07 15:43:03 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.262 2004-04-07 15:55:42 werner Exp $'
 ! !
 
 WindowGroup initialize!