--- a/ObjectMemory.st	Thu Mar 14 21:12:04 2019 +0100
+++ b/ObjectMemory.st	Thu Mar 14 21:54:03 2019 +0100
@@ -2201,6 +2201,26 @@
     "
 !
 
+sendConsistencyCheckPrimitivesOn
+    "{ Pragma: +optSpace }"
+
+    "turns consistency check after every send to primitive code.
+     
+     WARNING: this method is for debugging only
+              it may be removed without notice"
+
+%{  /* NOCONTEXT */
+    __setMessageTrace__(TRACE_CONSISTENCY_CHECK_PRIM);
+%}
+
+    "
+     ObjectMemory sendConsistencyChecksOn
+     ObjectMemory sendTraceOff
+    "
+
+    "Created: / 14-03-2019 / 21:52:46 / Claus Gittinger"
+!
+
 sendConsistencyChecksOn
     "{ Pragma: +optSpace }"
 
@@ -2213,7 +2233,7 @@
               it may be removed without notice"
 
 %{  /* NOCONTEXT */
-    __setMessageTrace__(4);
+    __setMessageTrace__(TRACE_CONSISTENCY_CHECK);
 %}
 
     "
@@ -2222,6 +2242,7 @@
     "
 
     "Created: / 14-03-2019 / 15:06:42 / Claus Gittinger"
+    "Modified: / 14-03-2019 / 21:52:58 / Claus Gittinger"
 !
 
 sendTraceAndConsistencyChecksOn
@@ -2238,7 +2259,7 @@
               it may be removed without notice"
 
 %{  /* NOCONTEXT */
-    __setMessageTrace__(5);
+    __setMessageTrace__(TRACE_CONSISTENCY_CHECK | TRACE_FOR_ALL);
 %}
 
     "
@@ -2247,7 +2268,7 @@
     "
 
     "Created: / 12-03-2019 / 18:36:52 / Claus Gittinger"
-    "Modified: / 14-03-2019 / 15:53:47 / Claus Gittinger"
+    "Modified: / 14-03-2019 / 21:53:13 / Claus Gittinger"
 !
 
 sendTraceOff
@@ -2287,12 +2308,12 @@
 sendTraceOnForAll
     "{ Pragma: +optSpace }"
 
-    "turns tracing of message sends on.
+    "turns tracing of message sends on for all threads.
      WARNING: this method is for debugging only
               it may be removed without notice"
 
 %{  /* NOCONTEXT */
-    __setMessageTrace__(1);
+    __setMessageTrace__(TRACE_FOR_ALL);
 %}
 
     "
@@ -2301,17 +2322,18 @@
     "
 
     "Created: / 14-03-2019 / 15:52:49 / Claus Gittinger"
+    "Modified (comment): / 14-03-2019 / 21:53:41 / Claus Gittinger"
 !
 
 sendTraceOnForThread
     "{ Pragma: +optSpace }"
 
-    "turns tracing of message sends on.
+    "turns tracing of message sends on for the current thread.
      WARNING: this method is for debugging only
               it may be removed without notice"
 
 %{  /* NOCONTEXT */
-    __setMessageTrace__(2);
+    __setMessageTrace__(TRACE_FOR_THREAD);
 %}
 
     "
@@ -2320,6 +2342,7 @@
     "
 
     "Created: / 14-03-2019 / 15:52:57 / Claus Gittinger"
+    "Modified: / 14-03-2019 / 21:53:48 / Claus Gittinger"
 ! !
 
 !ObjectMemory class methodsFor:'dependents access'!