--- a/WindowGroup.st	Sat Jul 13 22:49:10 2013 +0200
+++ b/WindowGroup.st	Sat Jul 13 22:49:51 2013 +0200
@@ -764,7 +764,7 @@
 
     preEventHooks notNil ifTrue:[
         preEventHooks removeIdentical:anEventProcessor ifAbsent:nil.
-        preEventHooks isEmpty ifTrue:[ preEventHooks := nil ].
+        preEventHooks := preEventHooks asNilIfEmpty. 
     ].
 !
 
@@ -842,15 +842,11 @@
 
     views notNil ifTrue:[
         views removeIdentical:aView ifAbsent:nil.
-        views isEmpty ifTrue:[
-            views := nil
-        ]
+        views := views asNilIfEmpty. 
     ].
     topViews notNil ifTrue:[
         topViews removeIdentical:aView ifAbsent:nil.
-        topViews isEmpty ifTrue:[
-            topViews := nil
-        ]
+        topViews := topViews asNilIfEmpty. 
     ].
     "
      wakeup my process to look if last view has been
@@ -2773,11 +2769,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.318 2013-07-13 20:25:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.319 2013-07-13 20:49:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.318 2013-07-13 20:25:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.319 2013-07-13 20:49:51 cg Exp $'
 ! !