--- a/InstrumentationInfo.st	Wed Oct 17 18:32:54 2012 +0200
+++ b/InstrumentationInfo.st	Wed Oct 17 18:33:05 2012 +0200
@@ -46,10 +46,26 @@
 
 allInfosDo:aBlock
     InstrumentedMethod allInstancesDo:[:m |
-        m literalsDo:[:l |
-            (l isKindOf:self) ifTrue:[
-                aBlock value:l.
-            ].
+        self allInfosOfMethod:m do:aBlock 
+    ].
+
+    "Created: / 27-04-2010 / 12:09:03 / cg"
+!
+
+allInfosOfClass:aClass do:aBlock
+    aClass instAndClassMethodsDo:[:m |
+        m isInstrumented ifTrue:[
+            self allInfosOfMethod:m do:aBlock
+        ].
+    ].
+
+    "Created: / 27-04-2010 / 12:09:03 / cg"
+!
+
+allInfosOfMethod:aMethod do:aBlock
+    aMethod literalsDo:[:l |
+        (l isKindOf:self) ifTrue:[
+            aBlock value:l.
         ]
     ].
 
@@ -57,8 +73,8 @@
 !
 
 cleanAllInfoWithChange:withChange
-    self allInfosDo:[:l |
-        l cleanInfoWithChange:withChange.
+    self allInfosDo:[:info |
+        info cleanInfoWithChange:withChange.
     ].
 
     "
@@ -121,9 +137,9 @@
 !InstrumentationInfo class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationInfo.st,v 1.2 2011-09-30 10:34:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationInfo.st,v 1.3 2012-10-17 16:33:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationInfo.st,v 1.2 2011-09-30 10:34:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationInfo.st,v 1.3 2012-10-17 16:33:05 cg Exp $'
 ! !