--- a/Java.st	Tue Aug 12 01:05:27 1997 +0000
+++ b/Java.st	Tue Aug 12 03:51:19 1997 +0000
@@ -174,9 +174,13 @@
 
     "
      Java initSystemClass
+
+     (Java at:'java.lang.System') 
+        invoke:#'getProperty(Ljava/lang/String;)Ljava/lang/String;'
+        with:(Java as_String:'java.home')
     "
 
-    "Modified: 5.8.1997 / 14:35:42 / cg"
+    "Modified: 12.8.1997 / 04:30:48 / cg"
 !
 
 initialize
@@ -724,6 +728,6 @@
 !Java class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.39 1997/08/12 01:05:27 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.40 1997/08/12 03:51:07 cg Exp $'
 ! !
 Java initialize!

--- a/JavaClass.st	Tue Aug 12 01:05:27 1997 +0000
+++ b/JavaClass.st	Tue Aug 12 03:51:19 1997 +0000
@@ -1127,8 +1127,9 @@
             cls methodDictionary keysAndValuesDo:[:sel :aMethod |
 
 "/     aMethod name printNL.
-                (aMethod name == selector 
-                or:[aMethod signatureNameWithoutReturnType = selector]) ifTrue:[
+                (sel == selector
+                or:[aMethod name == selector 
+                or:[aMethod signatureNameWithoutReturnType = selector]]) ifTrue:[
                     aMethod numArgs == 1 ifTrue:[
                         ^ self 
                             invokeJavaMethod:aMethod 
@@ -1144,7 +1145,7 @@
 
     ^ self doesNotUnderstand:(Message selector:selector)
 
-    "Modified: 30.7.1997 / 13:59:49 / cg"
+    "Modified: 12.8.1997 / 04:32:44 / cg"
 !
 
 invoke:selector with:arg1 with:arg2
@@ -1313,6 +1314,6 @@
 !JavaClass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.60 1997/08/12 00:57:31 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.61 1997/08/12 03:51:19 cg Exp $'
 ! !
 JavaClass initialize!