--- a/InspectorView.st	Tue Jun 04 03:26:52 2013 +0000
+++ b/InspectorView.st	Tue Jun 04 11:40:40 2013 +0200
@@ -2288,7 +2288,7 @@
             ].
             ^ self class imageFor_strings
         ].
-        (anObject isKindOf:Dictionary) ifTrue:[
+        (anObject isDictionary) ifTrue:[
             ^ self class imageFor_dictionaries
         ].
         (anObject isArray) ifTrue:[
@@ -2506,7 +2506,7 @@
     |d actionItems valueItems otherItems|
 
     d := self derivedFields.
-    (d isKindOf:Dictionary) ifTrue:[
+    (d isDictionary) ifTrue:[
         actionItems := d keys select:[:k | k startsWith:'!!'] as:OrderedCollection .
         valueItems := d keys select:[:k | k startsWith:'-'] as:OrderedCollection.
         otherItems := d keys select:[:k | (k startsWithAnyOf:#('!!' '-')) not] as:OrderedCollection.
@@ -3161,7 +3161,7 @@
     idx ~~ 0 ifTrue:[
         "a lot of backward compatibility crab which has to go away..."
         fields := self derivedFields.
-        (fields isKindOf:Dictionary) ifTrue:[
+        (fields isDictionary) ifTrue:[
             fieldEntry := fields associationAt:line string "idx".
         ] ifFalse:[
             fieldEntry := fields associationAt:idx.
@@ -3508,10 +3508,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.310 2013-06-03 10:39:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.311 2013-06-04 09:40:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.310 2013-06-03 10:39:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.311 2013-06-04 09:40:40 cg Exp $'
 ! !