--- a/JavaArray.st	Mon May 13 00:59:43 2013 +0100
+++ b/JavaArray.st	Tue May 14 15:36:56 2013 +0100
@@ -20,7 +20,7 @@
 "
 "{ Package: 'stx:libjava' }"
 
-Array subclass:#JavaArray
+Array variableSubclass:#JavaArray
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -60,7 +60,6 @@
 "
 ! !
 
-
 !JavaArray class methodsFor:'initialization'!
 
 classInit
@@ -83,7 +82,6 @@
     "Created: / 17-12-2010 / 13:25:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !JavaArray class methodsFor:'accessing'!
 
 classLoader
@@ -132,7 +130,6 @@
     "Created: / 22-05-2011 / 18:03:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !JavaArray class methodsFor:'accessing - java'!
 
 javaMirrorClass
@@ -145,7 +142,6 @@
     "Created: / 31-07-2012 / 18:28:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !JavaArray class methodsFor:'autoboxing support'!
 
 javaUnwrap: anObject
@@ -190,7 +186,6 @@
     "Created: / 04-11-2012 / 23:33:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !JavaArray class methodsFor:'class creation'!
 
 javaArrayClass
@@ -226,7 +221,6 @@
     "Modified: / 05-07-2012 / 23:23:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !JavaArray class methodsFor:'queries'!
 
 hasInterface:aJavaInterface
@@ -320,6 +314,25 @@
     "Created: / 21-12-2010 / 12:51:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!JavaArray methodsFor:'vm support'!
+
+_ARRAYLENGTH: cls
+    ^self basicSize
+
+    "Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+_CHECKCAST: cls
+    ^JavaVM _CHECKCAST: self _: cls
+
+    "Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+_INSTANCEOF: cls
+    ^JavaVM _INSTANCEOF: self _: cls
+
+    "Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 
 !JavaArray class methodsFor:'documentation'!