--- a/DebugView.st	Thu Feb 24 19:20:35 2000 +0100
+++ b/DebugView.st	Tue Feb 29 18:48:07 2000 +0100
@@ -1963,7 +1963,12 @@
 
                         anyStepBlocks ifFalse:[
                             inBlock ifFalse:[
+"/ workaround a VM bug,
+"/ which does not honor interrupt-on-return of block contexts
+"/ sigh
+where isBlockContext ifFalse:[
                                 contextBelow := where
+].
                             ]
                         ].
                         where := where sender
@@ -4266,6 +4271,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.260 2000-02-08 15:55:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.261 2000-02-29 17:48:07 cg Exp $'
 ! !
 DebugView initialize!