--- a/Parser.st	Fri Apr 17 20:58:20 1998 +0200
+++ b/Parser.st	Sun Apr 19 17:16:17 1998 +0200
@@ -4107,12 +4107,14 @@
         con := contextToEvaluateIn.
         [con notNil] whileTrue:[
             varNames := self class argAndVarNamesForContext:con.
-            varIndex := varNames lastIndexOf:varName.
-            varIndex ~~ 0 ifTrue:[
-                ^ VariableNode type:#ContextVariable
-                               name:varName
-                            context:con
-                              index:varIndex
+            varNames size > 0 ifTrue:[
+                varIndex := varNames lastIndexOf:varName.
+                varIndex ~~ 0 ifTrue:[
+                    ^ VariableNode type:#ContextVariable
+                                   name:varName
+                                context:con
+                                  index:varIndex
+                ].
             ].
             con := con home.
         ].
@@ -4220,7 +4222,7 @@
 
     ^ #Error
 
-    "Modified: / 17.1.1998 / 03:56:35 / cg"
+    "Modified: / 19.4.1998 / 12:24:35 / cg"
 ! !
 
 !Parser methodsFor:'private'!
@@ -4611,6 +4613,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.167 1998-04-17 18:57:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.168 1998-04-19 15:16:17 cg Exp $'
 ! !
 Parser initialize!