--- a/DebugView.st	Sat May 04 01:18:59 1996 +0200
+++ b/DebugView.st	Mon May 06 20:59:41 1996 +0200
@@ -617,10 +617,14 @@
 
         ObjectMemory stepInterruptHandler:self.
         stepForReturn == true ifFalse:[
-            ObjectMemory flushInlineCaches.
-            StepInterruptPending := 1.
-            InterruptPending := 1.
-            InStepInterrupt := nil
+            Context singleStepInterruptRequest isHandled ifTrue:[
+                Context singleStepInterruptRequest raise
+            ] ifFalse:[
+                ObjectMemory flushInlineCaches.
+                StepInterruptPending := 1.
+                InterruptPending := 1.
+                InStepInterrupt := nil
+            ]
         ]
     ] ifFalse:[
         OpenDebuggers notNil ifTrue:[
@@ -633,8 +637,8 @@
     ]
 
     "Created: 24.11.1995 / 19:52:54 / cg"
-    "Modified: 1.3.1996 / 13:22:07 / cg"
     "Modified: 3.5.1996 / 23:58:16 / stefan"
+    "Modified: 6.5.1996 / 16:48:03 / cg"
 !
 
 openOn:aProcess
@@ -2534,5 +2538,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.79 1996-05-03 23:18:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.80 1996-05-06 18:59:41 cg Exp $'
 ! !