--- a/ObjectView.st	Mon Oct 14 17:30:30 2002 +0200
+++ b/ObjectView.st	Mon Oct 14 17:47:43 2002 +0200
@@ -2924,10 +2924,13 @@
 
     something isCollection ifTrue:[
         self forEach:something do:[:theObject |
-            (theObject perform:#canBeSelected ifNotUnderstood:true) ifFalse:[^ false]
+            theObject isView ifFalse:[
+                (theObject perform:#canBeSelected ifNotUnderstood:true) ifFalse:[^ false]
+            ]
         ].
         ^ true
     ].
+    something isView ifTrue:[^ true].
     ^ something perform:#canBeSelected ifNotUnderstood:true
 
     "Created: / 4.7.1999 / 18:51:29 / cg"
@@ -3246,5 +3249,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.90 2002-09-12 13:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.91 2002-10-14 15:47:43 cg Exp $'
 ! !