--- a/JavaClass.st	Tue Jul 09 13:03:14 1996 +0000
+++ b/JavaClass.st	Tue Jul 09 20:50:50 1996 +0000
@@ -475,11 +475,16 @@
 !JavaClass methodsFor:'printing & storing'!
 
 displayString
-    ^ fullName copy replaceAll:$/ by:$.
+    ^ (fullName copyFrom:1) replaceAll:$/ by:$.
+
 "/    ^ 'JAVA-' , name .
 "/    ^ name , '(Java)'  "/ 'JavaClass(' , name , ')'
 
     "Created: 15.4.1996 / 16:02:48 / cg"
+
+
+
+
 ! !
 
 !JavaClass methodsFor:'private accessing'!
@@ -546,9 +551,9 @@
 setFullName:aString
     |nameComponents|
 
-    fullName := aString.
+    fullName := aString asSymbol.
     nameComponents := aString asCollectionOfSubstringsSeparatedBy:$/.
-    name := nameComponents last
+    name := nameComponents last asSymbol
 
     "Created: 15.4.1996 / 16:42:52 / cg"
 !
@@ -745,6 +750,6 @@
 !JavaClass  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.38 1996/07/03 09:12:09 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.39 1996/07/09 20:50:13 cg Exp $'
 ! !
 JavaClass initialize!

--- a/JavaContext.st	Tue Jul 09 13:03:14 1996 +0000
+++ b/JavaContext.st	Tue Jul 09 20:50:50 1996 +0000
@@ -156,6 +156,11 @@
     pc := anInteger
 !
 
+setPC:pcInteger SP:spInteger
+    pc := pcInteger.
+    sp := spInteger.
+!
+
 setSP:anInteger
     sp := anInteger
 !
@@ -216,5 +221,5 @@
 !JavaContext  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaContext.st,v 1.8 1996/07/06 18:15:09 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaContext.st,v 1.9 1996/07/09 20:50:26 cg Exp $'
 ! !

--- a/JavaMethodref.st	Tue Jul 09 13:03:14 1996 +0000
+++ b/JavaMethodref.st	Tue Jul 09 20:50:50 1996 +0000
@@ -88,10 +88,6 @@
 methodFor:aClass
     |nm sig mthd cls|
 
-    lastClass == aClass ifTrue:[
-        ^ lastMethod
-    ].
-
     cls := aClass.
 
     cls == Array ifTrue:[
@@ -106,6 +102,7 @@
                 ].
                 (cls isKindOf:JavaClass) ifFalse:[
                     self halt:'not a javaClass'.
+                    ^ nil
                 ]
             ].
     "/        cls := cls javaClass.
@@ -139,5 +136,5 @@
 !JavaMethodref  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethodref.st,v 1.16 1996/07/06 21:54:31 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethodref.st,v 1.17 1996/07/09 20:50:50 cg Exp $'
 ! !