--- a/JavaProcess.st	Mon Jan 12 23:18:07 1998 +0000
+++ b/JavaProcess.st	Fri Jan 16 16:12:55 1998 +0000
@@ -1,3 +1,5 @@
+'From Smalltalk/X, Version:3.3.1 on 14-jan-1998 at 12:04:33 am'                 !
+
 Process subclass:#JavaProcess
 	instanceVariableNames:'suspendedContext'
 	classVariableNames:''
@@ -9,13 +11,19 @@
 !JavaProcess methodsFor:'accessing'!
 
 suspendedContext
-"/ ^ super suspendedContext.
+    |con|
+
+    suspendedContext notNil ifTrue:[^ suspendedContext].
 
-    suspendedContext isNil ifTrue:[^ super suspendedContext].
-    ^ suspendedContext
+    con := super suspendedContext.
+    [con notNil] whileTrue:[
+        (con isMemberOf:JavaContext) ifTrue:[^ con].
+        con := con sender.
+    ].
+    ^ super suspendedContext
 
-    "Created: 7.5.1996 / 09:02:03 / cg"
-    "Modified: 8.8.1997 / 00:39:10 / cg"
+    "Created: / 7.5.1996 / 09:02:03 / cg"
+    "Modified: / 13.1.1998 / 09:40:07 / cg"
 !
 
 suspendedContext:aContext
@@ -41,5 +49,5 @@
 !JavaProcess class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaProcess.st,v 1.8 1997/08/14 15:29:58 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaProcess.st,v 1.9 1998/01/16 16:12:38 cg Exp $'
 ! !