--- a/InstrumentationContext.st	Tue Oct 16 10:43:23 2012 +0200
+++ b/InstrumentationContext.st	Wed Oct 17 18:32:54 2012 +0200
@@ -142,6 +142,20 @@
 
 !InstrumentationContext class methodsFor:'utilities'!
 
+flushAllPerProcessInstrumentationContexts
+    Process allInstancesDo:[:eachProcess |
+        eachProcess environmentAt:#instrumentationContext put:nil
+    ].
+
+    "
+     self flushAllPerProcessInstrumentationContexts
+    "
+!
+
+globalInstrumentationContext
+    ^ GlobalInstrumentationContext
+!
+
 setGlobalInstrumentationContext:aContextOrNil
     "setup for global instrumentation: instrumentation is performed for all processes"
 
@@ -278,9 +292,9 @@
 !InstrumentationContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.8 2012-06-05 21:31:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.9 2012-10-17 16:32:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.8 2012-06-05 21:31:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.9 2012-10-17 16:32:54 cg Exp $'
 ! !