--- a/WindowGroup.st	Fri Jun 04 15:20:51 2004 +0200
+++ b/WindowGroup.st	Fri Jun 04 16:00:43 2004 +0200
@@ -1363,10 +1363,13 @@
                 "/ ActivityNotification
                 "/
                 "/ if I am a modal-group, let it be handled
-                "/ by the outer main-groups handler
+                "/ by the outer main-groups handler (but only if there is one)
                 "/ otherwise show the activityMessage and continue.
                 "/
                 isModal ifTrue:[
+                    (ex signal isHandledIn:ex handlerContext sender) ifFalse:[
+                        ex proceedWith:nil.
+                    ].
                     ex reject
                     "never reached"
                 ].
@@ -2760,7 +2763,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.265 2004-06-04 13:20:51 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.266 2004-06-04 14:00:43 james Exp $'
 ! !
 
 WindowGroup initialize!