--- a/extensions.st	Thu Nov 07 18:48:52 2013 +0000
+++ b/extensions.st	Fri Nov 08 10:11:49 2013 +0000
@@ -889,7 +889,7 @@
     (#(  'java/lang/Byte'
         'java/lang/Short'
         'java/lang/Integer'
-        "'java/lang/Long'" ) includes: object class name) ifFalse:[
+        "'java/lang/Long'" ) includes: object class binaryName) ifFalse:[
         errorBlock value.
     ].
 
@@ -900,6 +900,7 @@
     ^value
 
     "Created: / 22-11-2011 / 11:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-11-2013 / 00:02:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Integer class methodsFor:'accessing'!