--- a/Process.st	Thu Aug 14 15:45:28 1997 +0200
+++ b/Process.st	Thu Aug 14 16:00:24 1997 +0200
@@ -777,6 +777,19 @@
     "Modified: 8.3.1996 / 13:01:21 / cg"
 !
 
+stepInterruptHandler:anObject
+    "set the handler for stepInterrupts occurring in the receiver process.
+     This is an interface for the debugger and allows it to monitor a threads
+     stepInterrupts. Returns the previous handler.
+     Not for general use."
+
+%{  /* NOCONTEXT */
+    extern OBJ __threadStepInterruptHandler();
+
+    RETURN( __threadStepInterruptHandler(anObject) );
+%}
+!
+
 unblockInterrupts
     "enable interrupt processing for the receiver process
      - if any interrupts are pending, these will be handled immediately.
@@ -1442,6 +1455,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.84 1997-08-09 15:26:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.85 1997-08-14 14:00:24 cg Exp $'
 ! !
 Process initialize!