--- a/InstrumentingCompiler.st	Sun Aug 21 13:56:14 2011 +0200
+++ b/InstrumentingCompiler.st	Sun Aug 21 16:03:10 2011 +0200
@@ -152,6 +152,9 @@
     ].
     blockEntryInfo := self blockExecutionInfoInstance.
     blockEntryInfo startPosition:aBlockNode startPosition endPosition:aBlockNode endPosition.
+"/    Transcript show:aBlockNode startPosition;
+"/     show:' -> ';
+"/     showCR: aBlockNode endPosition.
     blockInvocationInfo add:blockEntryInfo.
 
     countCode := 
@@ -170,7 +173,7 @@
         aBlockNode statements:countCode.
     ].
 
-    "Modified: / 17-08-2011 / 10:38:20 / cg"
+    "Modified: / 21-08-2011 / 16:02:52 / cg"
 !
 
 addBlockCountersToEachBlockIn:aCollection
@@ -695,6 +698,18 @@
     "Created: / 28-04-2010 / 15:54:47 / cg"
 ! !
 
+!InstrumentingCompiler::BlockExecutionInfo methodsFor:'printing'!
+
+printOn:aStream 
+    aStream nextPutAll:'['.
+    startPosition printOn:aStream.
+    aStream nextPutAll:'...'.
+    endPosition printOn:aStream.
+    aStream nextPutAll:']'.
+
+    "Created: / 21-08-2011 / 14:02:01 / cg"
+! !
+
 !InstrumentingCompiler::BlockExecutionInfo methodsFor:'testing'!
 
 isBlockExecutionInfo
@@ -706,9 +721,9 @@
 !InstrumentingCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.14 2011-08-17 14:33:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.15 2011-08-21 14:03:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.14 2011-08-17 14:33:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.15 2011-08-21 14:03:10 cg Exp $'
 ! !