--- a/Context.st	Thu Dec 14 17:56:16 1995 +0100
+++ b/Context.st	Thu Dec 14 18:49:59 1995 +0100
@@ -972,6 +972,16 @@
 
 !Context methodsFor:'private accessing'!
 
+markForInterrupt
+    "set the interrupt flag.
+     The VM needs this to know that some special action is to be performed with
+     this context upon return - a highly internal mechanism and not for public use."
+
+%{  /* NOCONTEXT */
+     __markInterrupted(__ContextInstPtr(self));
+%}
+!
+
 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
@@ -1054,6 +1064,6 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.48 1995-12-13 19:58:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.49 1995-12-14 17:49:59 cg Exp $'
 ! !
 Context initialize!