--- a/ObjectMemory.st	Mon Dec 09 11:22:02 2019 +0100
+++ b/ObjectMemory.st	Mon Dec 09 22:38:23 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -2341,6 +2339,18 @@
 
     "Created: / 14-03-2019 / 15:52:57 / Claus Gittinger"
     "Modified: / 14-03-2019 / 21:53:48 / Claus Gittinger"
+!
+
+traceSendsIn:aBlock
+    self sendTraceOnForThread.
+    aBlock ensure:[self sendTraceOff]
+
+    "
+     ObjectMemory traceSendsIn:[ 10 factorial ]
+    "
+
+    "Created: / 14-03-2019 / 15:52:57 / Claus Gittinger"
+    "Modified: / 14-03-2019 / 21:53:48 / Claus Gittinger"
 ! !
 
 !ObjectMemory class methodsFor:'dependents access'!