--- a/MessageTracer.st	Thu Oct 21 01:44:30 1999 +0200
+++ b/MessageTracer.st	Thu Oct 21 01:46:00 1999 +0200
@@ -20,14 +20,14 @@
 	category:'System-Debugging-Support'
 !
 
-MessageTracer subclass:#InteractionCollector
+MessageTracer subclass:#PrintingMessageTracer
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MessageTracer
 !
 
-MessageTracer subclass:#PrintingMessageTracer
+MessageTracer subclass:#InteractionCollector
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -1532,7 +1532,6 @@
     ].
 
     trapMethod changeClassTo:WrappedMethod.
-
     "
      raising our eyebrows here ...
     "
@@ -1550,7 +1549,8 @@
      change the source of this new method
      (to avoid confusion in the debugger ...)
     "
-    trapMethod source:'this is a wrapper method - not the real one'.
+"/    trapMethod source:'this is a wrapper method - not the real one'.
+    trapMethod sourceFilename:(aMethod getSource) position:(aMethod getSourcePosition).
 
     dict := class methodDictionary.
     sel := dict at:selector ifAbsent:[0].
@@ -2803,15 +2803,6 @@
 
 ! !
 
-!MessageTracer::InteractionCollector methodsFor:'trace helpers '!
-
-stepInterrupt
-    StepInterruptPending := nil.
-    ObjectMemory flushInlineCaches.
-    StepInterruptPending := 1.
-    InterruptPending := 1.
-! !
-
 !MessageTracer::PrintingMessageTracer methodsFor:'trace helpers '!
 
 stepInterrupt
@@ -2889,9 +2880,18 @@
     "
 ! !
 
+!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.83 1999-09-08 15:20:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.84 1999-10-20 23:46:00 cg Exp $'
 ! !
 MessageTracer initialize!