--- a/MessageTracer.st Tue Jun 04 03:26:40 2013 +0000
+++ b/MessageTracer.st Tue Jun 04 15:23:03 2013 +0200
@@ -2213,9 +2213,9 @@
Use untrap:/untrace: to remove this trace.
The current implementation does not allow integers or nil to be traced."
- |methodName|
-
aCollectionOfSelectors do:[:aSelector |
+ |methodName|
+
methodName := anObject class name , '>>' , aSelector.
self
wrap:anObject
@@ -3268,7 +3268,7 @@
!MessageTracer class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.122 2013-06-03 10:43:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.123 2013-06-04 13:23:03 cg Exp $'
! !