--- a/MessageTracer.st	Tue Nov 21 20:00:55 2000 +0100
+++ b/MessageTracer.st	Wed Nov 22 00:33:01 2000 +0100
@@ -22,14 +22,14 @@
 	category:'System-Debugging-Support'
 !
 
-MessageTracer subclass:#PrintingMessageTracer
+MessageTracer subclass:#InteractionCollector
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MessageTracer
 !
 
-MessageTracer subclass:#InteractionCollector
+MessageTracer subclass:#PrintingMessageTracer
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -1421,7 +1421,7 @@
 
     |selector class originalMethod dict mthd|
 
-Transcript showCR:'unwrapping a Method...'.
+"/ Transcript showCR:'unwrapping a Method...'.
 
     MethodCounts notNil ifTrue:[
         aMethod isWrapped ifTrue:[
@@ -1481,6 +1481,7 @@
 
     ObjectMemory flushCaches.
     class changed:#methodTrap with:selector. "/ tell browsers
+    Smalltalk changed:#methodTrap with:(Array with:class with:selector).
     ^ originalMethod
 
     "Modified: 5.6.1996 / 14:08:08 / stefan"
@@ -2946,6 +2947,15 @@
 
 ! !
 
+!MessageTracer::InteractionCollector methodsFor:'trace helpers '!
+
+stepInterrupt
+    StepInterruptPending := nil.
+    ObjectMemory flushInlineCaches.
+    StepInterruptPending := 1.
+    InterruptPending := 1.
+! !
+
 !MessageTracer::PrintingMessageTracer methodsFor:'trace helpers '!
 
 stepInterrupt
@@ -3023,18 +3033,9 @@
     "
 ! !
 
-!MessageTracer::InteractionCollector methodsFor:'trace helpers '!
-
-stepInterrupt
-    StepInterruptPending := nil.
-    ObjectMemory flushInlineCaches.
-    StepInterruptPending := 1.
-    InterruptPending := 1.
-! !
-
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.91 2000-11-16 16:18:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.92 2000-11-21 23:33:01 cg Exp $'
 ! !
 MessageTracer initialize!