--- a/extensions.st	Wed Nov 13 11:13:40 2013 +0000
+++ b/extensions.st	Thu Nov 14 01:25:43 2013 +0000
@@ -740,10 +740,11 @@
     | wrapper |
 
     wrapper := (JavaVM classForName: 'java.lang.Double') new.
-    wrapper perform: #'<init>(D)V' with: anObject.
+    wrapper perform: #'<init>(D)V' with: anObject with: nil.
     ^ wrapper
 
     "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-11-2013 / 01:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Float class methodsFor:'accessing'!
@@ -935,10 +936,11 @@
     | wrapper |
 
     wrapper := (JavaVM classForName: 'java.lang.Long') new.
-    wrapper perform: #'<init>(J)V' with: anObject.
+    wrapper perform: #'<init>(J)V' with: anObject with: nil.
     ^ wrapper
 
     "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-11-2013 / 01:21:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !LargeInteger class methodsFor:'accessing'!