--- a/UIObjectView.st	Wed Mar 16 18:22:12 2005 +0100
+++ b/UIObjectView.st	Thu Apr 14 11:24:30 2005 +0200
@@ -693,14 +693,14 @@
 !
 
 minSetOfSuperViews:setOfViews
-
     setOfViews isCollection ifFalse:[
-	setOfViews notNil ifTrue:[^ Array with:setOfViews]
-			 ifFalse:[^ nil]
+        setOfViews notNil ifTrue:[^ Array with:setOfViews].
+        ^ nil
     ].
-  ^ setOfViews select:[:aView|
-	(setOfViews detect:[:v|aView isComponentOf:v] ifNone:nil) isNil
-    ]
+    ^ setOfViews 
+        select:[:aView|
+            (setOfViews contains:[:v | aView isComponentOf:v]) not
+        ]
 !
 
 redrawObjectsInVisible:redrawFrame