--- a/WindowGroup.st	Tue Jul 09 20:56:10 2013 +0200
+++ b/WindowGroup.st	Sat Jul 13 22:25:01 2013 +0200
@@ -755,7 +755,7 @@
 
     postEventHooks notNil ifTrue:[
         postEventHooks removeIdentical:anEventProcessor ifAbsent:nil.
-        postEventHooks isEmpty ifTrue:[ postEventHooks := nil ].
+        postEventHooks := postEventHooks asNilIfEmpty.
     ].
 !
 
@@ -2773,11 +2773,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.317 2013-04-19 09:37:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.318 2013-07-13 20:25:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.317 2013-04-19 09:37:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.318 2013-07-13 20:25:01 cg Exp $'
 ! !