--- a/InstrumentedMethod.st	Mon May 03 19:41:14 2010 +0200
+++ b/InstrumentedMethod.st	Mon May 03 19:41:23 2010 +0200
@@ -58,7 +58,7 @@
 
     info := OrderedCollection new.
     self literalsDo:[:lit | 
-        (lit isKindOf:InstrumentingCompiler::BlockExecutionInfo) ifTrue:[
+        (lit isMemberOf:InstrumentingCompiler::BlockExecutionInfo) ifTrue:[
             info add:lit
         ]
     ].
@@ -83,6 +83,18 @@
     ^ self literalsDetect:[:lit | lit isKindOf:InstrumentingCompiler::MethodInvocationInfo] ifNone:nil
 
     "Created: / 27-04-2010 / 13:34:01 / cg"
+!
+
+statementInvocationInfo
+    |info|
+
+    info := OrderedCollection new.
+    self literalsDo:[:lit | 
+        (lit isMemberOf:InstrumentingCompiler::StatementExecutionInfo) ifTrue:[
+            info add:lit
+        ]
+    ].
+    ^ info
 ! !
 
 !InstrumentedMethod methodsFor:'queries'!
@@ -111,5 +123,5 @@
 !InstrumentedMethod class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentedMethod.st,v 1.3 2010-04-27 17:03:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentedMethod.st,v 1.4 2010-05-03 17:41:23 cg Exp $'
 ! !