--- a/OrderedCollectionInspectorView.st	Tue Jun 21 16:37:39 2005 +0200
+++ b/OrderedCollectionInspectorView.st	Tue Jun 21 18:02:02 2005 +0200
@@ -48,8 +48,10 @@
 !OrderedCollectionInspectorView methodsFor:'private'!
 
 baseInspectedObjectClass
+    (inspectedObject class inheritsFrom:OrderedCollection) ifFalse:[
+        ^ Object
+    ].
     ^ OrderedCollection
-
 !
 
 defaultLabel
@@ -179,5 +181,5 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.35 2004-02-02 13:57:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.36 2005-06-21 16:01:51 cg Exp $'
 ! !

--- a/SetInspectorView.st	Tue Jun 21 16:37:39 2005 +0200
+++ b/SetInspectorView.st	Tue Jun 21 18:02:02 2005 +0200
@@ -81,8 +81,10 @@
 !SetInspectorView methodsFor:'private'!
 
 baseInspectedObjectClass
+    (inspectedObject class inheritsFrom:Set) ifFalse:[
+        ^ Object
+    ].
     ^ Set
-
 !
 
 defaultLabel
@@ -182,5 +184,5 @@
 !SetInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.20 2002-10-29 12:49:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.21 2005-06-21 16:02:02 cg Exp $'
 ! !