--- a/WindowGroup.st	Thu Nov 08 11:24:57 2001 +0100
+++ b/WindowGroup.st	Fri Nov 09 12:30:32 2001 +0100
@@ -951,6 +951,8 @@
     WindowGroupQuerySignal handle:[:ex |
         ex proceedWith:self
     ] do:[
+        LastActiveGroup := nil.
+
         self realizeTopViews.
 
         self 
@@ -1037,6 +1039,7 @@
             WindowGroupQuerySignal handle:[:ex |
                 ex proceedWith:self
             ] do:[
+                LastActiveGroup := nil.
                 [
                     startupAction value.
                     self eventLoopWhile:[true] onLeave:[]
@@ -2656,6 +2659,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.232 2001-09-24 08:24:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.233 2001-11-09 11:30:32 cg Exp $'
 ! !
 WindowGroup initialize!