# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1392981327 -3600
# Node ID c503d01b46fc0c5c7fbd517155177c43fbe70448
# Parent  0ba7ad1a3ec2fb727467a7f9231e65ee0c7e33e8
class: ContextInspectorView
changed: #valueAtIndex:
ws var access fixed

diff -r 0ba7ad1a3ec2 -r c503d01b46fc ContextInspectorView.st
--- a/ContextInspectorView.st	Wed Feb 19 14:21:36 2014 +0100
+++ b/ContextInspectorView.st	Fri Feb 21 12:15:27 2014 +0100
@@ -639,11 +639,11 @@
     varIdx > values size ifTrue:[
         |wsIndex|
 
-        wsIndex := varIdx - values size.
+        wsIndex := varIdx - values size - 1.
         wsIndex <= workspaceVariableNamesInDoIts size ifTrue:[
             ^ (Workspace workspaceVariableAt:(workspaceVariableNamesInDoIts at:wsIndex)) value.
         ].
-        ^ '** oops - could not found value **'
+        ^ '** oops - could not find value **'
     ].
 
     ^ values at:varIdx.
@@ -744,10 +744,10 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.92 2014-02-19 10:37:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.93 2014-02-21 11:15:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.92 2014-02-19 10:37:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.93 2014-02-21 11:15:27 cg Exp $'
 ! !