--- a/WindowGroup.st	Fri Nov 24 19:34:03 1995 +0100
+++ b/WindowGroup.st	Fri Nov 24 19:34:49 1995 +0100
@@ -12,7 +12,7 @@
 
 Object subclass:#WindowGroup
 	 instanceVariableNames:'views topViews myProcess mySensor isModal previousGroup focusView
-                focusSequence preEventHook postEventHook'
+		focusSequence preEventHook postEventHook'
 	 classVariableNames:'LastActiveGroup LastActiveProcess LeaveSignal'
 	 poolDictionaries:''
 	 category:'Interface-Support'
@@ -341,9 +341,13 @@
     ].
     "
      wakeup my process to look if last view has been
-     removed (and terminate if so)
+     removed (modalBoxes terminate their modalLoop if so)
     "
-    mySensor notNil ifTrue:[mySensor eventSemaphore signal]
+    mySensor notNil ifTrue:[
+	(sema := mySensor eventSemaphore) notNil ifTrue:[
+	    sema signal
+	]
+    ]
 !
 
 sensor
@@ -990,6 +994,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.37 1995-11-23 17:44:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.38 1995-11-24 18:34:49 cg Exp $'
 ! !
 WindowGroup initialize!