--- a/MessageTracer.st	Fri Jul 31 00:44:32 1998 +0200
+++ b/MessageTracer.st	Fri Jul 31 17:13:36 1998 +0200
@@ -473,18 +473,19 @@
 !MessageTracer class methodsFor:'execution trace '!
 
 debugTrace:aBlock
-    "trace execution of aBlock. This is for system debugging only"
-
-    Smalltalk sendTraceOn.
+    "trace execution of aBlock. This is for system debugging only;
+     The trace output is a low level trace generated in the VM."
+
+    ObjectMemory sendTraceOn.
     ^ aBlock valueNowOrOnUnwindDo:[
-        Smalltalk sendTraceOff.
+        ObjectMemory sendTraceOff.
     ]
 
     "
      MessageTracer debugTrace:[#(6 5 4 3 2 1) sort]
     "
 
-    "Modified: 18.3.1996 / 19:49:36 / cg"
+    "Modified: / 31.7.1998 / 16:39:43 / cg"
 !
 
 trace:aBlock
@@ -1159,15 +1160,17 @@
 !
 
 traceMethodAll:aMethod
-    "arrange for a full trace message to be output on Stderr, when amethod is executed.
+    "arrange for a full trace message to be output on Stderr, when aMethod is executed.
      Only the sender is traced on entry.
-     Use untraceMethod to remove this trace."
+     Use untraceMethod to remove this trace.
+     This is for system debugging only;
+     The trace output is a low level trace generated in the VM."
 
     ^ self wrapMethod:aMethod
-              onEntry:[:con | ObjectMemory flushCaches. Smalltalk sendTraceOn.] 
-              onExit:[:con :val | Smalltalk sendTraceOff.]
-
-    "Modified: 22.3.1997 / 17:02:04 / cg"
+              onEntry:[:con | ObjectMemory flushCaches. ObjectMemory sendTraceOn.] 
+              onExit:[:con :val | ObjectMemory sendTraceOff.]
+
+    "Modified: / 31.7.1998 / 16:40:07 / cg"
 !
 
 traceMethodEntry:aMethod
@@ -2744,6 +2747,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.73 1998-07-30 22:44:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.74 1998-07-31 15:13:36 cg Exp $'
 ! !
 MessageTracer initialize!

--- a/MsgTracer.st	Fri Jul 31 00:44:32 1998 +0200
+++ b/MsgTracer.st	Fri Jul 31 17:13:36 1998 +0200
@@ -473,18 +473,19 @@
 !MessageTracer class methodsFor:'execution trace '!
 
 debugTrace:aBlock
-    "trace execution of aBlock. This is for system debugging only"
-
-    Smalltalk sendTraceOn.
+    "trace execution of aBlock. This is for system debugging only;
+     The trace output is a low level trace generated in the VM."
+
+    ObjectMemory sendTraceOn.
     ^ aBlock valueNowOrOnUnwindDo:[
-        Smalltalk sendTraceOff.
+        ObjectMemory sendTraceOff.
     ]
 
     "
      MessageTracer debugTrace:[#(6 5 4 3 2 1) sort]
     "
 
-    "Modified: 18.3.1996 / 19:49:36 / cg"
+    "Modified: / 31.7.1998 / 16:39:43 / cg"
 !
 
 trace:aBlock
@@ -1159,15 +1160,17 @@
 !
 
 traceMethodAll:aMethod
-    "arrange for a full trace message to be output on Stderr, when amethod is executed.
+    "arrange for a full trace message to be output on Stderr, when aMethod is executed.
      Only the sender is traced on entry.
-     Use untraceMethod to remove this trace."
+     Use untraceMethod to remove this trace.
+     This is for system debugging only;
+     The trace output is a low level trace generated in the VM."
 
     ^ self wrapMethod:aMethod
-              onEntry:[:con | ObjectMemory flushCaches. Smalltalk sendTraceOn.] 
-              onExit:[:con :val | Smalltalk sendTraceOff.]
-
-    "Modified: 22.3.1997 / 17:02:04 / cg"
+              onEntry:[:con | ObjectMemory flushCaches. ObjectMemory sendTraceOn.] 
+              onExit:[:con :val | ObjectMemory sendTraceOff.]
+
+    "Modified: / 31.7.1998 / 16:40:07 / cg"
 !
 
 traceMethodEntry:aMethod
@@ -2744,6 +2747,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.73 1998-07-30 22:44:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.74 1998-07-31 15:13:36 cg Exp $'
 ! !
 MessageTracer initialize!