diff -r e9fcb54ac3d4 -r f0b8fc6cdabb InstrumentingCompiler.st
--- a/InstrumentingCompiler.st	Wed Jul 20 17:55:15 2011 +0200
+++ b/InstrumentingCompiler.st	Wed Jul 20 17:56:29 2011 +0200
@@ -382,9 +382,9 @@
 
 cleanInfo
     count := 0.
-    Smalltalk changed:#methodTrap with:owningMethod.
+    Smalltalk changed:#methodCoverageInfo with:owningMethod.
 
-    "Modified: / 20-07-2011 / 17:54:27 / cg"
+    "Modified: / 20-07-2011 / 17:55:49 / cg"
 ! !
 
 !InstrumentingCompiler::StatementExecutionInfo methodsFor:'instrumentation calls'!
@@ -401,13 +401,13 @@
         p := Processor activeProcess.
         (p environmentAt:#inInstrument ifAbsent:false) ifFalse:[
             p withThreadVariable:#inInstrument boundTo:true do:[
-                Smalltalk changed:#methodTrap with:owningMethod.
+                Smalltalk changed:#methodCoverageInfo with:owningMethod.
             ].
         ]
     ].
 
     "Created: / 23-06-2006 / 13:31:16 / cg"
-    "Modified: / 20-07-2011 / 17:53:40 / cg"
+    "Modified: / 20-07-2011 / 17:56:06 / cg"
 ! !
 
 !InstrumentingCompiler::StatementExecutionInfo methodsFor:'queries'!
@@ -486,9 +486,9 @@
 
 cleanInfo
     infoPerReceiverClass := nil.
-    Smalltalk changed:#methodTrap with:owningMethod.
+    Smalltalk changed:#methodCoverageInfo with:owningMethod.
 
-    "Modified: / 20-07-2011 / 17:54:34 / cg"
+    "Modified: / 20-07-2011 / 17:55:35 / cg"
 ! !
 
 !InstrumentingCompiler::MethodInvocationInfo methodsFor:'instrumentation probe calls'!
@@ -515,11 +515,11 @@
 
         "/ the very first time, send a change notification
         firstEntry ifTrue:[
-            Smalltalk changed:#methodTrap with:owningMethod.
+            Smalltalk changed:#methodCoverageInfo with:owningMethod.
         ]
     ]
 
-    "Modified: / 20-07-2011 / 17:54:08 / cg"
+    "Modified: / 20-07-2011 / 17:55:56 / cg"
 ! !
 
 !InstrumentingCompiler::MethodInvocationInfo::MethodInvocationInfoPerReceiverClass methodsFor:'accessing'!
@@ -674,6 +674,10 @@
 
 !InstrumentingCompiler class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.9 2011-07-20 15:56:29 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.8 2011-07-20 15:55:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.9 2011-07-20 15:56:29 cg Exp $'
 ! !