--- a/ReadEvalPrintLoop.st	Thu May 02 21:02:22 2019 +0200
+++ b/ReadEvalPrintLoop.st	Sat May 04 18:30:33 2019 +0200
@@ -1489,11 +1489,8 @@
 
             mthd isMethod ifTrue:[
                 traceFlag == true ifTrue:[
-                    [
-                        ObjectMemory sendTraceOn.
+                    MessageTracer debugTrace:[
                         value := self doIt.     "/ not here now, but dynamically created
-                    ] ensure:[
-                        ObjectMemory sendTraceOff.
                     ]
                 ] ifFalse:[
                     profilingFlag == true ifTrue:[ 
@@ -1531,6 +1528,8 @@
             ].
         ].
     ].
+
+    "Modified: / 04-05-2019 / 15:51:16 / Claus Gittinger"
 !
 
 readEvalPrintLoop