--- a/compiler/TArgumentBinding.st	Mon Aug 31 18:37:31 2015 +0100
+++ b/compiler/TArgumentBinding.st	Wed Sep 02 09:18:00 2015 +0100
@@ -3,20 +3,40 @@
 "{ NameSpace: Smalltalk }"
 
 TVariableBinding subclass:#TArgumentBinding
-	instanceVariableNames:''
+	instanceVariableNames:'index'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Languages-Tea-Compiler-Bindings'
 !
 
 
+!TArgumentBinding methodsFor:'accessing'!
+
+index
+    ^ index
+! !
+
+!TArgumentBinding methodsFor:'initialization'!
+
+index:something
+    index := something.
+! !
+
 !TArgumentBinding methodsFor:'printing & storing'!
 
 printOn:aStream
     aStream nextPutAll: '[A] '.
-    super printOn: aStream
+    super printOn: aStream.
+    aStream nextPutAll: ' ('.    
+    index notNil ifTrue:[ 
+        index printOn: aStream
+    ] ifFalse:[ 
+        aStream nextPut: $?
+    ].
+    aStream nextPut: $).
 
     "Created: / 25-08-2015 / 22:54:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-09-2015 / 08:28:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TArgumentBinding methodsFor:'testing'!