--- a/InstrumentationContext.st Sun Aug 21 12:31:39 2011 +0200
+++ b/InstrumentationContext.st Sun Aug 21 12:33:50 2011 +0200
@@ -179,7 +179,8 @@
beActiveIn:aProcess
"become the current instrumentaion context for a process."
- self class setInstrumentationContext:self in:aProcess
+ self class setInstrumentationContext:self in:aProcess.
+ CachedProcessToInstrumentationContextMapping removeKey:aProcess ifAbsent:[].
"
InstrumentationContext new beActiveIn:(Processor activeProcess)
@@ -218,9 +219,9 @@
!InstrumentationContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.3 2011-08-17 14:32:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.4 2011-08-21 10:33:50 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.3 2011-08-17 14:32:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.4 2011-08-21 10:33:50 cg Exp $'
! !