--- a/InspectorView.st	Fri Apr 11 13:40:19 2014 +0200
+++ b/InspectorView.st	Fri Apr 11 16:12:51 2014 +0200
@@ -2438,70 +2438,71 @@
 !
 
 iconForValue: anObject
-    |value|
-
+    |value cls|
+
+    cls := self class.
     anObject isNil ifTrue:[
-        ^ self class imageFor_nil
+        ^ cls imageFor_nil
     ].
     anObject isLazyValue ifTrue:[
-        ^ self class imageFor_others
+        ^ cls imageFor_others
     ].
     anObject isNumber ifTrue:[
         anObject isInteger ifTrue:[
-            ^ self class imageFor_integers
+            ^ cls imageFor_integers
         ].
         anObject isFloat ifTrue:[
-            ^ self class imageFor_floats
+            ^ cls imageFor_floats
         ].
         anObject isFraction ifTrue:[
-            ^ self class imageFor_fractions
+            ^ cls imageFor_fractions
         ].
     ].
     anObject isCollection ifTrue:[
         anObject isString ifTrue:[
             anObject isSymbol ifTrue:[
-                ^ self class imageFor_symbols
+                ^ cls imageFor_symbols
             ].
-            ^ self class imageFor_strings
+            ^ cls imageFor_strings
         ].
         (anObject isDictionary) ifTrue:[
-            ^ self class imageFor_dictionaries
+            ^ cls imageFor_dictionaries
         ].
         (anObject isArray) ifTrue:[
-            ^ self class imageFor_arrays
+            ^ cls imageFor_arrays
         ].
         (anObject isSequenceable) ifTrue:[
-            ^ self class imageFor_sequenceableCollections
+            ^ cls imageFor_sequenceableCollections
         ].
-        ^ self class imageFor_collections
+        ^ cls imageFor_collections
     ].
     anObject == true ifTrue:[
-        ^ self class imageFor_true
+        ^ cls imageFor_true
     ].
     anObject == false ifTrue:[
-        ^ self class imageFor_false
+        ^ cls imageFor_false
     ].
     anObject isCharacter ifTrue:[
-        ^ self class imageFor_characters
+        ^ cls imageFor_characters
     ].
     anObject isBehavior ifTrue:[
-        ^ self class imageFor_classes
+        ^ cls imageFor_classes
     ].
     anObject isColor ifTrue:[
-        ^ self class imageFor_colors
+        ^ cls imageFor_colors
     ].
     anObject isValueModel ifTrue:[
         Error handle:[:ex |
         ] do:[
             value := anObject value.
-            value == true ifTrue:[^ self class imageFor_trueHolder].
-            value == false ifTrue:[^ self class imageFor_falseHolder].
-            value == nil ifTrue:[^ self class imageFor_nilHolder].
-            ^ self class imageFor_othersHolder
+            value == true ifTrue:[^ cls imageFor_trueHolder].
+            value == false ifTrue:[^ cls imageFor_falseHolder].
+            value == nil ifTrue:[^ cls imageFor_nilHolder].
+            ^ cls imageFor_othersHolder
         ].
     ].
 
-    ^ self class imageFor_others
+    ^ cls imageFor_others
 
     "Created: / 16-05-2012 / 17:58:20 / cg"
 !
@@ -3696,10 +3697,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.329 2014-04-08 17:23:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.330 2014-04-11 14:12:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.329 2014-04-08 17:23:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.330 2014-04-11 14:12:51 cg Exp $'
 ! !