--- a/compiler/TConstantBinding.st	Fri Sep 18 06:20:53 2015 +0100
+++ b/compiler/TConstantBinding.st	Sun Sep 20 12:01:42 2015 +0100
@@ -12,10 +12,10 @@
 
 !TConstantBinding class methodsFor:'instance creation'!
 
-value: anObject type: aTType
-    ^ self new initializeWithValue: anObject type: aTType
+value: anObject
+    ^ self new initializeWithValue: anObject
 
-    "Created: / 15-09-2015 / 08:19:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 20-09-2015 / 07:11:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TConstantBinding methodsFor:'accessing'!
@@ -37,11 +37,10 @@
 
 !TConstantBinding methodsFor:'initialization'!
 
-initializeWithValue: anObject type: aTType
+initializeWithValue: anObject
     value := anObject.
-    type := aTType.
 
-    "Created: / 15-09-2015 / 08:19:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 20-09-2015 / 07:11:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TConstantBinding methodsFor:'testing'!