--- a/WindowGroup.st	Mon Aug 12 16:28:35 2002 +0200
+++ b/WindowGroup.st	Tue Aug 13 14:10:52 2002 +0200
@@ -1044,8 +1044,13 @@
                     startupAction value.
                     self eventLoopWhile:[true] onLeave:[]
                 ] ensure:[
-                    |dev|
-
+                    |dev w app|
+
+                    (w := self mainView) notNil ifTrue:[
+                        (app := w application) notNil ifTrue:[
+                            app release
+                        ]
+                    ].
                     (dev := self graphicsDevice) notNil ifTrue:[
                         dev deviceIOErrorSignal handle:[:ex |
                         ] do:[
@@ -2671,6 +2676,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.245 2002-08-02 13:55:47 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.246 2002-08-13 12:10:52 penk Exp $'
 ! !
 WindowGroup initialize!