--- a/Context.st	Mon Oct 14 11:34:27 1996 +0200
+++ b/Context.st	Mon Oct 14 12:11:45 1996 +0200
@@ -1067,6 +1067,18 @@
 %}
 !
 
+markForInterruptOnUnwind
+    "set the interrupt-on-unwind flag in the receiver.
+     The VM will generate a stepInterrupt, when this context returns or
+     is unwound. This is used by the debugger for faster single-stepping;
+     - a highly internal mechanism and not for public use."
+
+%{  /* NOCONTEXT */
+     __INST(flags) = (OBJ)((INT)__INST(flags) 
+                     | __MASKSMALLINT(__IRQ_ON_UNWIND));
+%}
+!
+
 markForUnwind
     "set the mark for unwind flag in the receiver.
      The VM needs this to know that some special action is to be performed with
@@ -1214,6 +1226,6 @@
 !Context  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.64 1996-10-14 09:34:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.65 1996-10-14 10:11:45 cg Exp $'
 ! !
 Context initialize!