--- a/Method.st	Fri Apr 24 20:34:30 1998 +0200
+++ b/Method.st	Fri Apr 24 20:48:15 1998 +0200
@@ -1152,7 +1152,7 @@
     "arrange for a full-backtrace to be sent to the standard-error stream
      when this method is invoked."
 
-    MessageTracer traceMethodFull:self
+    MessageTracer traceMethodFull:self on:Transcript
 
     "Created: / 11.1.1998 / 14:02:43 / cg"
     "Modified: / 12.1.1998 / 18:23:11 / cg"
@@ -1162,7 +1162,7 @@
     "arrange for a trace-message to be sent to the standard-error stream
      when this method is invoked."
 
-    MessageTracer traceMethod:self
+    MessageTracer traceMethod:self on:Transcript
 
     "Created: / 11.1.1998 / 14:02:30 / cg"
     "Modified: / 12.1.1998 / 18:23:23 / cg"
@@ -1172,7 +1172,7 @@
     "arrange for a sender-trace-message to be sent to the standard-error stream
      when this method is invoked."
 
-    MessageTracer traceMethodSender:self
+    MessageTracer traceMethodSender:self on:Transcript
 
     "Created: / 11.1.1998 / 14:02:59 / cg"
     "Modified: / 12.1.1998 / 18:23:31 / cg"
@@ -2523,6 +2523,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.160 1998-04-22 08:30:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.161 1998-04-24 18:48:15 cg Exp $'
 ! !
 Method initialize!