--- a/UIObjectView.st	Tue Jun 04 11:40:48 2013 +0200
+++ b/UIObjectView.st	Tue Jun 04 12:31:15 2013 +0200
@@ -746,10 +746,7 @@
         setOfViews notNil ifTrue:[^ Array with:setOfViews].
         ^ nil
     ].
-    ^ setOfViews 
-        select:[:aView|
-            (setOfViews contains:[:v | aView isComponentOf:v]) not
-        ]
+    ^ setOfViews reject:[:aView| (setOfViews contains:[:v | aView isComponentOf:v]) ]
 !
 
 redrawObjectsInVisible:redrawFrame
@@ -3233,3 +3230,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+