--- a/compiler/TConstantBinding.st	Mon Sep 14 15:03:03 2015 +0100
+++ b/compiler/TConstantBinding.st	Mon Sep 14 16:27:00 2015 +0100
@@ -40,13 +40,13 @@
 initializeWithValue: anObject
     value := anObject.
     value class == SmallInteger ifTrue:[ 
-        type := TSimpleType named: 'tSmallInteger'.
+        type := TSimpleType named: 'tSIntegerW'.
         ^ self.
     ].
     self error: 'Unsupported constant'
 
     "Created: / 25-08-2015 / 23:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 01-09-2015 / 21:55:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-09-2015 / 15:18:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TConstantBinding methodsFor:'testing'!