--- a/MessageTally.st	Mon Feb 06 00:38:51 1995 +0100
+++ b/MessageTally.st	Wed Feb 08 04:16:43 1995 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.6 1994-08-05 01:07:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.7 1995-02-08 03:16:43 claus Exp $
 '!
 
 !MessageTally class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.6 1994-08-05 01:07:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.7 1995-02-08 03:16:43 claus Exp $
 "
 !
 
@@ -119,8 +119,9 @@
 
     self setupArrays.
     ObjectMemory stepInterruptHandler:nil.
-    StepInterruptPending := true.
-    InterruptPending := true.
+    ObjectMemory flushInlineCaches.
+    StepInterruptPending := 1.
+    InterruptPending := 1.
     aBlock value.
     StepInterruptPending := nil.
     ObjectMemory stepInterruptHandler:nil.
@@ -131,8 +132,9 @@
      increment counts and retrigger stepInterrupt"
 
     self count.
-    StepInterruptPending := true.
-    InterruptPending := true
+    ObjectMemory flushInlineCaches.
+    StepInterruptPending := 1.
+    InterruptPending := 1
 !
 
 spyInterrupt