--- a/JavaContext.st	Thu Jun 27 18:38:57 1996 +0000
+++ b/JavaContext.st	Fri Jun 28 13:47:44 1996 +0000
@@ -11,11 +11,14 @@
 argsAndVars
     |args|
 
-    args := Array new:(method numArgs + method numVars).
     method isStatic ifTrue:[
-        args replaceFrom:1 to:args size with:stack startingAt:frameBase.
+"/        args := Array new:(method numArgs + method numVars).
+"/        args replaceFrom:1 to:args size with:stack startingAt:frameBase.
+        ^ (stack copyFrom:frameBase) asArray
     ] ifFalse:[
-        args replaceFrom:1 to:args size with:stack startingAt:frameBase+1.
+"/        args := Array new:(method numArgs + method numVars).
+"/        args replaceFrom:1 to:args size with:stack startingAt:frameBase+1.
+        ^ (stack copyFrom:frameBase+1) asArray
     ].
     ^ args
 
@@ -29,6 +32,10 @@
     "Created: 1.5.1996 / 15:05:36 / cg"
 !
 
+hasStackToShow
+    ^ true
+!
+
 isBlockContext
     ^ false
 
@@ -88,6 +95,10 @@
     ^ (method name , method signature) asSymbol "/ signatureName
 
     "Created: 1.5.1996 / 15:03:03 / cg"
+!
+
+stackFrame
+    ^ stack copyFrom:frameBase
 ! !
 
 !JavaContext methodsFor:'accessing'!
@@ -173,5 +184,5 @@
 !JavaContext  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaContext.st,v 1.6 1996/06/27 15:56:47 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaContext.st,v 1.7 1996/06/28 13:47:44 cg Exp $'
 ! !