--- a/src/extensions.st	Mon Aug 15 10:09:02 2011 +0000
+++ b/src/extensions.st	Tue Aug 16 11:52:34 2011 +0000
@@ -281,6 +281,18 @@
 
     "Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
+!Character class methodsFor:'autoboxing support'!
+
+javaBox:anObject 
+
+| wrapper |
+
+wrapper := (Java classForName: 'java.lang.Character') new.
+wrapper perform: #'<init>(C)V' with: anObject.
+^wrapper
+
+    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 !Character class methodsFor:'accessing'!
 
 javaName
@@ -486,6 +498,18 @@
 
     "Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
+!Float class methodsFor:'autoboxing support'!
+
+javaBox:anObject 
+
+    | wrapper |
+
+    wrapper := (Java classForName: 'java.lang.Double') new.
+    wrapper perform: #'<init>(D)V' with: anObject.
+    ^wrapper
+
+    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 !Float class methodsFor:'accessing'!
 
 javaName
@@ -574,6 +598,18 @@
 
     "Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
+!Integer class methodsFor:'autoboxing support'!
+
+javaBox:anObject 
+
+    | wrapper |
+
+    wrapper := (Java classForName: 'java.lang.Integer') new.
+    wrapper perform: #'<init>(I)V' with: anObject.
+    ^wrapper
+
+    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 !Integer class methodsFor:'accessing'!
 
 javaName
@@ -597,6 +633,18 @@
 
     "Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
+!LargeInteger class methodsFor:'autoboxing support'!
+
+javaBox:anObject 
+
+    | wrapper |
+
+    wrapper := (Java classForName: 'java.lang.Long') new.
+    wrapper perform: #'<init>(J)V' with: anObject.
+    ^wrapper
+
+    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 !LargeInteger class methodsFor:'accessing'!
 
 javaName
@@ -660,6 +708,18 @@
 
     "Created: / 11-02-2011 / 10:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
+!ShortFloat class methodsFor:'autoboxing support'!
+
+javaBox:anObject 
+
+    | wrapper |
+
+    wrapper := (Java classForName: 'java.lang.Float') new.
+    wrapper perform: #'<init>(F)V' with: anObject.
+    ^wrapper
+
+    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 !ShortFloat class methodsFor:'accessing'!
 
 javaName