--- a/JavaMethod.st	Thu Apr 09 18:16:33 1998 +0000
+++ b/JavaMethod.st	Thu Apr 09 18:17:46 1998 +0000
@@ -592,6 +592,14 @@
 
 !JavaMethod methodsFor:'accessing'!
 
+accessFlags
+    "java calls this the modifiers"
+
+    ^ accessFlags
+
+    "Created: / 9.4.1998 / 17:49:44 / cg"
+!
+
 argSignature
     ^ self class argSigArrayFromSignature:signature
 !
@@ -780,21 +788,35 @@
         ^ nil
     ].
     returnType == #double ifTrue:[
-        self halt.
+        'warning: no returnTypeClass for double' printCR.
+"/        self halt:'no returnTypeClass for double'.
         ^ nil
     ].
     returnType == #float ifTrue:[
-        self halt.
+        'warning: no returnTypeClass for float' printCR.
+"/        self halt:'no returnTypeClass for float'.
         ^ nil
     ].
     returnType == #long ifTrue:[
-        self halt.
+        'warning: no returnTypeClass for long' printCR.
+"/        self halt:'no returnTypeClass for long'.
+        ^ nil
+    ].
+    returnType == #int ifTrue:[
+        'warning: no returnTypeClass for int' printCR.
+"/        self halt:'no returnTypeClass for int'.
+        ^ nil
+    ].
+    returnType == #boolean ifTrue:[
+        'warning: no returnTypeClass for boolean' printCR.
+"/        self halt:'no returnTypeClass for boolean'.
         ^ nil
     ].
     self halt.
     ^ nil
 
     "Created: / 13.2.1998 / 15:08:26 / cg"
+    "Modified: / 9.4.1998 / 17:53:31 / cg"
 !
 
 returnsDouble
@@ -1521,6 +1543,23 @@
     "Modified: / 9.1.1998 / 02:26:50 / cg"
 !
 
+_caload:arr _:index
+    "this is only invoked, if caload encounters either a bad index
+     or a non-string-receiver."
+
+    |i|
+
+    i := index + 1.
+    (i between:1 and:arr size) ifFalse:[
+        JavaVM throwArrayIndexOutOfBoundsException:index
+    ].
+
+    ^ arr at:i
+
+    "Modified: / 14.1.1998 / 23:19:59 / cg"
+    "Created: / 9.4.1998 / 17:51:42 / cg"
+!
+
 _checkCast:anObject class:aClassOrInterface
     "trampouline for unhandled cases ..."
 
@@ -1900,6 +1939,6 @@
 !JavaMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethod.st,v 1.66 1998/04/07 20:30:12 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethod.st,v 1.67 1998/04/09 18:17:00 cg Exp $'
 ! !
 JavaMethod initialize!