--- a/InspectorView.st	Sat Feb 01 12:13:01 2020 +0100
+++ b/InspectorView.st	Sun Feb 02 11:34:01 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -3145,15 +3143,12 @@
             "/ mhmh - avoid sending #perform: (bad for proxy objects which pass it to somewhere..)
             displayStringMessage == #displayString ifTrue:[
                 someValue displayOn:s.
-                "/ s := someValue displayString.
             ] ifFalse:[
                 displayStringMessage == #printString ifTrue:[
                     someValue printOn:s.
-                    "/ s := someValue printString.
                 ] ifFalse:[
                     displayStringMessage == #storeString ifTrue:[
                         someValue storeOn:s.
-                        "/ s := someValue storeString.
                     ] ifFalse:[
                         ^ someValue perform:displayStringMessage.
                     ].
@@ -3219,7 +3214,7 @@
         "/ this is returned by collection-inspectors,
         "/ when a field-index for a no-longer-present-index is selected
         "/ (eg. if an OrderedCollection growed to a smaller size in the meantime)
-        ^ '«element no longer present»' allGray.
+        ^ '«element no longer present»' allGray.
     ].
 
     idx := self theSingleSelectionIndex.
@@ -3307,15 +3302,15 @@
     "/ UserPreferences current showTypeIndicatorInInspector ifFalse:[^ nil].
     value isBridgeProxy ifTrue:[
         "avoid sending out messages"
-        ^ '» Bridge Proxy «'
+        ^ '» Bridge Proxy «'
     ].
     value isProxy ifTrue:[
         "avoid sending out messages"
-        ^ '» Proxy «'
+        ^ '» Proxy «'
     ].
     value isLazyValue ifTrue:[
         "do not block on not yet finished Futures et al"
-        ^ '» Lazy value «'
+        ^ '» Lazy value «'
     ].
     value class == ValueHolder ifTrue:[
         "/ just in case...
@@ -3323,7 +3318,7 @@
 
         s := self plainValueStringInListEntryForValue:value value.
         s notNil ifTrue:[
-            ^ '« ' , s , ' »'
+            ^ '« ' , s , ' »'
         ].
         ^ nil
     ].
@@ -3542,8 +3537,8 @@
     d := self derivedFields.
     (d isDictionary) ifTrue:[
         actionItems := d keys select:[:k | k first == $!!] as:OrderedCollection .
-        valueItems := d keys select:[:k | '-¤' includes:k first] as:OrderedCollection.
-        otherItems := d keys select:[:k | ('!!-¤' includes: k first) not] as:OrderedCollection.
+        valueItems := d keys select:[:k | '-¤' includes:k first] as:OrderedCollection.
+        otherItems := d keys select:[:k | ('!!-¤' includes: k first) not] as:OrderedCollection.
         ^ ((actionItems sort , valueItems "sort") collect:[:k | (k copyTo:1),(k copyFrom:2) allItalic])
           ,
           otherItems sort 
@@ -4208,7 +4203,7 @@
     ].
 
     "/ another special (pseudo) entries?
-    (lineEntry startsWith:$¤) ifTrue:[
+    (lineEntry startsWith:$¤) ifTrue:[
         ^ self valueForSpecialLine:lineEntry
     ].
 
@@ -4636,7 +4631,7 @@
 !
 
 tryToSelectKeyNamed:aString
-    "called from the debugger to try to select the previousöy selected
+    "called from the debugger to try to select the previousöy selected
      field (by name)"
      
     |list idx aStringWithSpace|