--- a/compiler/TValueBinding.st	Wed Aug 26 07:51:18 2015 +0100
+++ b/compiler/TValueBinding.st	Mon Aug 31 13:53:40 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 TBinding subclass:#TValueBinding
-	instanceVariableNames:''
+	instanceVariableNames:'type'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Languages-Tea-Compiler-Bindings'
@@ -19,3 +19,17 @@
     ^ self == TValueBinding.
 ! !
 
+!TValueBinding methodsFor:'accessing'!
+
+type
+    ^ type
+
+    "Created: / 31-08-2015 / 11:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+type: aTType
+    type := aTType
+
+    "Created: / 31-08-2015 / 11:49:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+