--- a/JavaClass.st	Fri Dec 24 00:46:30 1999 +0000
+++ b/JavaClass.st	Fri Dec 24 01:03:26 1999 +0000
@@ -13,8 +13,6 @@
 
 
 
-'From Smalltalk/X, Version:3.5.5 on 9-nov-1999 at 07:03:31 pm'                  !
-
 Class subclass:#JavaClass
 	instanceVariableNames:'constantPool interfaces accessFlags classLoader fullName
 		sourceFile binaryFilePath fields initValues staticFields'
@@ -641,6 +639,27 @@
     classLoader := aJavaClassLoaderOrNil
 !
 
+compiledMethodAt:name
+    "redefined to find the constructor"
+
+    |m|
+
+    m := super compiledMethodAt:name.
+    m isNil ifTrue:[
+        name = self lastName ifTrue:[
+            ^ super compiledMethodAt:#'<init>()V'
+        ].
+    ].
+    ^ m
+
+    "
+     JAVA::java::lang::Object compiledMethodAt:#Object
+    "
+
+    "Created: / 24.12.1999 / 02:02:50 / cg"
+    "Modified: / 24.12.1999 / 02:04:46 / cg"
+!
+
 compiledMethodAt:name signature:sig
     "lookup the classes methodDictionary"
 
@@ -1721,6 +1740,6 @@
 !JavaClass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.109 1999/11/09 18:04:11 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.110 1999/12/24 01:03:13 cg Exp $'
 ! !
 JavaClass initialize!

--- a/JavaMethod.st	Fri Dec 24 00:46:30 1999 +0000
+++ b/JavaMethod.st	Fri Dec 24 01:03:26 1999 +0000
@@ -783,12 +783,19 @@
     |walker|
 
     walker := JavaByteCodeEnumerator new.
-    walker literalAction:[:pc :slotIndex :const | Transcript showCR:const].
+    walker literalAction:[:pc :slotIndex :const | 
+        const isJavaMethodRef ifTrue:[
+            aBlock value:(const name).
+        ] ifFalse:[
+            const isJavaClassRef ifTrue:[
+                aBlock value:(const name).
+            ]
+        ]
+    ].
     walker decompile:self to:nil.
-    self halt.
 
     "Created: / 9.11.1999 / 15:21:40 / cg"
-    "Modified: / 9.11.1999 / 15:36:02 / cg"
+    "Modified: / 24.12.1999 / 01:58:17 / cg"
 !
 
 localVariableTable
@@ -1810,6 +1817,6 @@
 !JavaMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethod.st,v 1.91 1999/12/21 13:29:18 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethod.st,v 1.92 1999/12/24 01:03:26 cg Exp $'
 ! !
 JavaMethod initialize!