--- a/WindowGroup.st	Mon Nov 19 16:30:44 2001 +0100
+++ b/WindowGroup.st	Mon Nov 19 17:44:15 2001 +0100
@@ -1323,7 +1323,6 @@
                 |dev gotSema mainView|
 
                 (mainGroup notNil or:[mySensor hasEvents not]) ifTrue:[
-                    "/ now, wait for an event to arrive
                     waitSema isNil ifTrue:[
                         "/ oops - how can this happen ....
                         ^ self.
@@ -1333,6 +1332,8 @@
                     "/ Q: is this still needed (see suspendAction) ?
                     self graphicsDevice flush.
                     thisProcess setStateTo:#eventWait if:#active.
+
+                    "/ now, wait for an event to arrive
                     gotSema := waitSema wait.
                 ] ifFalse:[
                     gotSema := mySema
@@ -2660,6 +2661,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.235 2001-11-17 16:36:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.236 2001-11-19 16:44:15 cg Exp $'
 ! !
 WindowGroup initialize!