--- a/InstrumentingCompiler.st	Thu Mar 21 19:05:58 2019 +0100
+++ b/InstrumentingCompiler.st	Fri Mar 22 13:26:09 2019 +0100
@@ -660,6 +660,25 @@
     "Modified: / 23-08-2011 / 21:29:39 / cg"
 ! !
 
+!InstrumentingCompiler::StatementExecutionInfo methodsFor:'printing'!
+
+printOn:aStream 
+    aStream nextPutAll:'['.
+    startPosition printOn:aStream.
+    aStream nextPutAll:'...'.
+    endPosition printOn:aStream.
+    aStream nextPutAll:' | count: '.
+    count printOn:aStream.
+    aStream nextPutAll:' | code: '.
+    (owningMethod source asString
+        copyFrom:startPosition
+        to:endPosition) printOn:aStream.
+    aStream nextPutAll:']'.
+
+    "Created: / 21-08-2011 / 14:02:01 / cg"
+    "Modified: / 22-03-2019 / 08:43:56 / Claus Gittinger"
+! !
+
 !InstrumentingCompiler::StatementExecutionInfo methodsFor:'private'!
 
 changeClassToAlreadyEntered
@@ -1101,18 +1120,6 @@
     ].
 ! !
 
-!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