--- a/MessageTracer.st	Thu Feb 25 16:31:50 1999 +0100
+++ b/MessageTracer.st	Thu Feb 25 16:40:43 1999 +0100
@@ -2783,6 +2783,15 @@
 
 ! !
 
+!MessageTracer::InteractionCollector methodsFor:'trace helpers '!
+
+stepInterrupt
+    StepInterruptPending := nil.
+    ObjectMemory flushInlineCaches.
+    StepInterruptPending := 1.
+    InterruptPending := 1.
+! !
+
 !MessageTracer::PrintingMessageTracer methodsFor:'trace helpers '!
 
 stepInterrupt
@@ -2863,6 +2872,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.78 1999-02-25 15:31:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.79 1999-02-25 15:40:43 cg Exp $'
 ! !
 MessageTracer initialize!

--- a/MsgTracer.st	Thu Feb 25 16:31:50 1999 +0100
+++ b/MsgTracer.st	Thu Feb 25 16:40:43 1999 +0100
@@ -2783,6 +2783,15 @@
 
 ! !
 
+!MessageTracer::InteractionCollector methodsFor:'trace helpers '!
+
+stepInterrupt
+    StepInterruptPending := nil.
+    ObjectMemory flushInlineCaches.
+    StepInterruptPending := 1.
+    InterruptPending := 1.
+! !
+
 !MessageTracer::PrintingMessageTracer methodsFor:'trace helpers '!
 
 stepInterrupt
@@ -2863,6 +2872,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.78 1999-02-25 15:31:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.79 1999-02-25 15:40:43 cg Exp $'
 ! !
 MessageTracer initialize!