--- a/InspectorView.st	Wed Jun 05 15:23:10 2013 +0200
+++ b/InspectorView.st	Wed Jun 05 15:23:42 2013 +0200
@@ -2790,7 +2790,7 @@
     "helper - return the index for a named instVar;
      nil, if self or a keyed instvar is selected."
 
-    |idx nNamedInstvarsShown cls baseCls firstRealIndex line nm|
+    |idx firstRealIndex line nm|
 
     lineNr isNil ifTrue:[^ nil].
     firstRealIndex := 1.
@@ -2804,28 +2804,28 @@
     idx == 0 ifTrue:[^ nil].
     ^ idx.    
 
-    [
-        line := self listEntryAt:firstRealIndex. 
-        (line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]
-    ] whileTrue:[
-        firstRealIndex := firstRealIndex + 1.
-        idx := idx - 1.
-    ].
-
-    cls := object class.
-    baseCls := self baseInspectedObjectClass.
-
-    nNamedInstvarsShown := cls instSize.
-    "/ only the namedInstvars below baseInspectedObjectClass
-    "/ are shown ...
-    (cls includesBehavior:baseCls) ifTrue:[
-        nNamedInstvarsShown := nNamedInstvarsShown - baseCls instSize.
-    ].
-
-    idx <= nNamedInstvarsShown ifTrue:[
-        ^ idx + self baseInspectedObjectClass instSize.
-    ].
-    ^ nil "/ indexed instvar or other selected
+"/    [
+"/        line := self listEntryAt:firstRealIndex. 
+"/        (line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]
+"/    ] whileTrue:[
+"/        firstRealIndex := firstRealIndex + 1.
+"/        idx := idx - 1.
+"/    ].
+"/
+"/    cls := object class.
+"/    baseCls := self baseInspectedObjectClass.
+"/
+"/    nNamedInstvarsShown := cls instSize.
+"/    "/ only the namedInstvars below baseInspectedObjectClass
+"/    "/ are shown ...
+"/    (cls includesBehavior:baseCls) ifTrue:[
+"/        nNamedInstvarsShown := nNamedInstvarsShown - baseCls instSize.
+"/    ].
+"/
+"/    idx <= nNamedInstvarsShown ifTrue:[
+"/        ^ idx + self baseInspectedObjectClass instSize.
+"/    ].
+"/    ^ nil "/ indexed instvar or other selected
 
     "Modified: / 20-07-2012 / 11:11:10 / cg"
 !
@@ -3397,8 +3397,6 @@
 doInspect:objectToInspect basic:basic
     "user selected inspect-menu entry"
 
-    |app |
-
     objectToInspect notNil ifTrue:[
         (basic == #new and:[NewInspector::NewInspectorView notNil]) ifTrue:[
             NewInspector::NewInspectorView inspect:objectToInspect
@@ -3508,10 +3506,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.311 2013-06-04 09:40:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.312 2013-06-05 13:23:42 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.311 2013-06-04 09:40:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.312 2013-06-05 13:23:42 stefan Exp $'
 ! !