--- a/Context.st	Fri May 23 14:26:40 2014 +0200
+++ b/Context.st	Fri May 23 21:14:03 2014 +0200
@@ -280,6 +280,12 @@
 
 !Context methodsFor:'accessing'!
 
+arg1Index
+    ^1
+
+    "Created: / 31-01-2013 / 13:29:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 argAt:n
     "return the n'th argument"
 
@@ -2603,11 +2609,11 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.202 2014-05-22 16:19:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.203 2014-05-23 19:14:03 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.202 2014-05-22 16:19:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.203 2014-05-23 19:14:03 stefan Exp $'
 !
 
 version_HG