--- a/ContextInspectorView.st	Wed May 16 18:52:41 2012 +0200
+++ b/ContextInspectorView.st	Wed May 16 18:52:51 2012 +0200
@@ -63,7 +63,7 @@
      oldSelection oldSelectedName hCon listSelection|
 
     oldSelection := selectionIndex.
-    oldSelection notNil ifTrue:[oldSelectedName := listView at:oldSelection].
+    oldSelection notNil ifTrue:[oldSelectedName := self listEntryAt:oldSelection].
 
     ((aContext == inspectedContext)
         "/ care for contexts which change size
@@ -306,7 +306,7 @@
         ]
     ].
 
-    "Modified: / 22-10-2010 / 11:47:48 / cg"
+    "Modified: / 16-05-2012 / 17:55:45 / cg"
 !
 
 namesOfBlockContext:aContext
@@ -465,12 +465,14 @@
 
     |sel|
 
-    sel := listView at:selectionIndex.
+    sel := self listEntryAt:selectionIndex.
     (sel startsWith:'-all local vars') ifTrue:[
         ^ self stringWithAllLocalValues
     ].
 
     ^ super displayStringForValue:someValue
+
+    "Modified: / 16-05-2012 / 17:55:33 / cg"
 !
 
 fieldList
@@ -588,15 +590,17 @@
     inspectedContext isNil ifTrue:[^ nil].
 
     varIdx := lineNr.
-    l := listView at:lineNr.
+    l := self listEntryAt:lineNr.
     l isNil ifTrue:[ ^nil].
 
     (l startsWith:$-) ifTrue:[
         (l ~= '-') ifTrue:[
-            ^ self valueForSpecialLine:(listView at:lineNr)
+            ^ self valueForSpecialLine:(self listEntryAt:lineNr)
         ].
     ].
     ^ self valueAtIndex:(varIdx - 1). "/ for the special var
+
+    "Modified: / 16-05-2012 / 17:55:57 / cg"
 !
 
 valueForSpecialLine:line
@@ -655,9 +659,9 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.75 2011-08-03 13:08:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.76 2012-05-16 16:52:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.75 2011-08-03 13:08:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.76 2012-05-16 16:52:51 cg Exp $'
 ! !