--- a/WindowGroup.st	Tue Jul 27 16:39:31 2010 +0200
+++ b/WindowGroup.st	Wed Jul 28 03:34:59 2010 +0200
@@ -1475,14 +1475,19 @@
     ].
     preEventHooks notNil ifTrue:[
         preEventHooks do:[:eachHook |
-            eachHook isBlock ifTrue:[
-                (eachHook value:anEvent) ifTrue:[ ^ true ].
-            ] ifFalse:[
-                (eachHook processEvent:anEvent) ifTrue:[ ^ true ].
+            "/ can only be nil if changed, while enumerating...
+            eachHook notNil ifTrue:[
+                eachHook isBlock ifTrue:[
+                    (eachHook value:anEvent) ifTrue:[ ^ true ].
+                ] ifFalse:[
+                    (eachHook processEvent:anEvent) ifTrue:[ ^ true ].
+                ]
             ]
         ]
     ].
     ^ false
+
+    "Modified: / 28-07-2010 / 03:34:33 / cg"
 !
 
 lastEvent
@@ -2715,11 +2720,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.308 2010-07-06 09:48:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.309 2010-07-28 01:34:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.308 2010-07-06 09:48:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.309 2010-07-28 01:34:59 cg Exp $'
 ! !
 
 WindowGroup initialize!