--- a/ContextInspectorView.st	Fri Jan 16 16:24:11 1998 +0100
+++ b/ContextInspectorView.st	Fri Jan 16 16:26:15 1998 +0100
@@ -10,8 +10,10 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.3.1 on 14-jan-1998 at 12:12:21 am'                 !
+
 InspectorView subclass:#ContextInspectorView
-	instanceVariableNames:'inspectedContext names showingTemporaries argsOnly'
+	instanceVariableNames:'inspectedContext names showingTemporaries argsOnly contextSize'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Inspector'
@@ -61,15 +63,20 @@
      numArgs numVars n tempNames realTempNames|
 
     (aContext == inspectedContext) ifTrue:[
-        listView selection notNil ifTrue:[
-            self showSelection:(listView selection).
-        ].
-        ^ self
+        "/ care for contexts which change size
+        "/ (after the locals & stack-setup)
+        contextSize == inspectedContext size ifTrue:[
+            listView selection notNil ifTrue:[
+                self showSelection:(listView selection).
+            ].
+            ^ self
+        ]
     ].
 
     hasMore := argsOnly := false.
     inspectedObject := nil.
     inspectedContext := aContext.
+    contextSize := inspectedContext size.
 
     aContext isNil ifTrue:[
         names := nil.
@@ -127,7 +134,7 @@
         ].
 
         method notNil ifTrue:[
-            method source notNil ifTrue:[
+            "/ method source notNil ifTrue:[
 
                 argsOnly ifTrue:[
                     homeNames := method methodArgNames
@@ -177,7 +184,7 @@
                         ]
                     ]
                 ]
-            ]
+            "/ ]
         ].
 
         "
@@ -192,11 +199,16 @@
                 1 to:homeContext numVars do:[:index |
                     homeNames add:('mVar' , index printString)
                 ].
-                showingTemporaries ifTrue:[
-                    1 to:homeContext numTemps do:[:index |
-                        homeNames add:('mTmp' , index printString)
-                    ]
-                ]
+"/                showingTemporaries ifTrue:[
+"/                    1 to:homeContext numTemps do:[:index |
+"/                        homeNames add:('mTmp' , index printString)
+"/                    ]
+"/                ]
+            ]
+        ].
+        showingTemporaries ifTrue:[
+            1 to:homeContext numTemps do:[:index |
+                homeNames add:('mTmp' , index printString)
             ]
         ].
 
@@ -337,7 +349,7 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:aContext.
 
-    "Modified: / 29.11.1997 / 20:12:58 / cg"
+    "Modified: / 13.1.1998 / 17:41:42 / cg"
 !
 
 release
@@ -461,12 +473,16 @@
             values := homeContext args
         ] ifFalse:[
             values := homeContext argsAndVars
+        ].
+        (showingTemporaries and:[homeContext numTemps ~~ 0])ifTrue:[
+            values := values , homeContext temporaries
         ]
+
     ].
 
     ^ values at:lineNr.
 
-    "Modified: 23.10.1996 / 16:21:05 / cg"
+    "Modified: / 13.1.1998 / 15:55:16 / cg"
 ! !
 
 !ContextInspectorView methodsFor:'user actions'!
@@ -505,5 +521,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.38 1997-12-01 18:14:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.39 1998-01-16 15:26:15 cg Exp $'
 ! !