--- a/DebugView.st	Wed Feb 24 11:45:45 1999 +0100
+++ b/DebugView.st	Wed Feb 24 15:24:34 1999 +0100
@@ -535,7 +535,7 @@
     "enter the debugger - get and display the context, then start an
      exclusive event loop on top of eveything else"
 
-    |con selection m idx retval enteredByInterrupt sel con1 con2|
+    |con selection m idx retval enteredByInterrupt sel con1 con2 h|
 
     verboseBacktrace := VerboseBacktraceDefault ? false.
 
@@ -649,16 +649,17 @@
                 "
                  for bigStep, we could also be in a block below the actual method ...
                 "
-                (con1 home notNil 
-                 and:[con1 home == steppedContext]) ifTrue:[
+                ((h := con1 home) notNil 
+                 and:[h == steppedContext]) ifTrue:[
                     selection := 1
                 ] ifFalse:[
                     (con2 notNil
-                    and:[con2 home notNil 
-                    and:[con2 home == steppedContext]]) ifTrue:[
+                    and:[(h := con2 home) notNil 
+                    and:[h == steppedContext]]) ifTrue:[
                         selection := 2
                     ]
                 ].
+                h := nil.
             ]
         ] ifFalse:[
             steppedContext isNil ifTrue:[
@@ -721,7 +722,7 @@
     ] ifFalse:[
         self realize.
     ].
-    self realizeAllSubViews.
+"/    self realizeAllSubViews.
 
     exclusive ifTrue:[
         self showError:'
@@ -743,13 +744,13 @@
     "/ wait until realized ...
     "/ - kludge; I have (currently) no idea, why this is needed ...
     "/
-    Object haltSignal handle:[:ex |
-        'DebugView [info]: halt in debugger ignored' infoPrintCR.
-        ex proceed.
-    ] do:[
-        windowGroup eventLoopWhile:[self shown not] onLeave:[].
-        self withAllSubViewsDo:[:v | v invalidate].
-    ].
+"/    Object haltSignal handle:[:ex |
+"/        'DebugView [info]: halt in debugger ignored' infoPrintCR.
+"/        ex proceed.
+"/    ] do:[
+"/        windowGroup eventLoopWhile:[self shown not] onLeave:[].
+"/        self withAllSubViewsDo:[:v | v invalidate].
+"/    ].
 
     canContinue := true.
     exitAction := nil.
@@ -3879,6 +3880,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.220 1998-11-14 17:43:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.221 1999-02-24 14:24:34 cg Exp $'
 ! !
 DebugView initialize!