--- a/compiler/TBinding.st	Wed Aug 26 07:51:18 2015 +0100
+++ b/compiler/TBinding.st	Mon Aug 31 13:53:40 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#TBinding
-	instanceVariableNames:'type'
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Languages-Tea-Compiler-Bindings'
@@ -12,8 +12,34 @@
 !TBinding methodsFor:'accessing'!
 
 type
-    ^ type
+    ^ self subclassResponsibility
 
-    "Modified: / 28-08-2015 / 06:28:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-08-2015 / 11:16:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!TBinding methodsFor:'testing'!
+
+isArgumentBinding
+    ^ false
+!
+
+isClassBinding
+    ^ false
+!
+
+isConstantBinding
+    ^ false
+!
+
+isLocalBinding
+    ^ false
+!
+
+isMethodBinding
+    ^ false
+!
+
+isMethodBlock
+    ^ false
+! !
+