--- a/SetInspectorView.st	Sat Aug 22 00:04:30 2015 +0100
+++ b/SetInspectorView.st	Mon Aug 24 10:07:46 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996 by Claus Gittinger / eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 InspectorView subclass:#SetInspectorView
 	instanceVariableNames:'keys'
 	classVariableNames:''
@@ -79,10 +83,10 @@
 !SetInspectorView methodsFor:'private'!
 
 baseInspectedObjectClass
-    (inspectedObject class inheritsFrom:Set) ifFalse:[
-        ^ Object
+    (inspectedObject class inheritsFrom:Set) ifTrue:[
+        ^ Set
     ].
-    ^ Set
+    ^ Object
 !
 
 defaultLabel
@@ -132,12 +136,7 @@
      Set hasMore to true, if a '...' entry should be added."
 
     keys := self indexList.
-    ^ keys collect:[:k | k isSymbol ifTrue:[
-                             k printString
-                         ] ifFalse:[
-                             k displayString
-                         ]
-                   ].
+    ^ keys collect:[:k | k displayString].
 !
 
 numIndexedFields
@@ -154,6 +153,12 @@
 !
 
 showAllIndexedVarsInFieldList
+    ^ true
+! !
+
+!SetInspectorView methodsFor:'queries'!
+
+isIndexShown
     ^ false
 ! !
 
@@ -186,7 +191,7 @@
 !
 
 indexedValueAtKey:idx
-    ^ keys at:idx
+    ^ idx
 !
 
 valueAtLine:lineNr put:newValue
@@ -211,7 +216,7 @@
 !SetInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.27 2013-06-04 13:02:54 cg Exp $'
+    ^ '$Header$'
 !
 
 version_HG