--- a/JavaNativeMethod.st	Fri Oct 29 14:48:43 1999 +0000
+++ b/JavaNativeMethod.st	Tue Nov 09 09:25:25 1999 +0000
@@ -7,6 +7,12 @@
 	category:'Java-Classes'
 !
 
+!JavaNativeMethod class methodsFor:'initialization'!
+
+initialize
+    self flags:(self flags bitOr:Behavior flagJavaMethod).
+! !
+
 
 !JavaNativeMethod methodsFor:'accessing'!
 
@@ -32,23 +38,23 @@
     |nm sel|
 
     nativeImplementation isNil ifTrue:[
-        nm := selector copyWithoutLast:signature size.
-        sel := ('_' , javaClass lastName , '_' , nm , ':') asSymbol.
+	nm := selector copyWithoutLast:signature size.
+	sel := ('_' , javaClass lastName , '_' , nm , ':') asSymbol.
 
-        nativeImplementation := (JavaVM class compiledMethodAt:sel).
-        nativeImplementation isNil ifTrue:[
-            ^ JavaVM 
-                perform:sel
-                with:thisContext sender.
-        ].
+	nativeImplementation := (JavaVM class compiledMethodAt:sel).
+	nativeImplementation isNil ifTrue:[
+	    ^ JavaVM 
+		perform:sel
+		with:thisContext sender.
+	].
     ].
 
     ^ nativeImplementation
-        valueWithReceiver:JavaVM
-        arguments:(Array with:thisContext sender)
-        selector:selector
-        search:JavaVM class
-        sender:nil
+	valueWithReceiver:JavaVM
+	arguments:(Array with:thisContext sender)
+	selector:selector
+	search:JavaVM class
+	sender:nil
 
     "Modified: / 25.9.1999 / 23:10:29 / cg"
 ! !
@@ -56,5 +62,5 @@
 !JavaNativeMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaNativeMethod.st,v 1.1 1999/09/25 21:13:24 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaNativeMethod.st,v 1.2 1999/11/09 09:24:33 cg Exp $'
 ! !