MessageTracer.st
changeset 3290 c52532b682af
parent 3286 f284e25d482e
child 3300 965757a9a4b7
child 3308 25b846cf6917
--- 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 $'
 ! !