--- a/InstrumentingCompiler.st	Wed Aug 17 16:32:52 2011 +0200
+++ b/InstrumentingCompiler.st	Wed Aug 17 16:33:41 2011 +0200
@@ -163,13 +163,14 @@
 
     aBlockNode isEmptyBlock ifTrue:[
         "/ q: are we interested in empty blocks ?
+        countCode nextStatement:(StatementNode expression:(ConstantNode value:nil)).
         aBlockNode statements:countCode.
     ] ifFalse:[
         countCode nextStatement:aBlockNode statements.
         aBlockNode statements:countCode.
     ].
 
-    "Modified: / 07-08-2011 / 15:13:50 / cg"
+    "Modified: / 17-08-2011 / 10:38:20 / cg"
 !
 
 addBlockCountersToEachBlockIn:aCollection
@@ -705,9 +706,9 @@
 !InstrumentingCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.13 2011-08-08 18:10:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.14 2011-08-17 14:33:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.13 2011-08-08 18:10:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.14 2011-08-17 14:33:41 cg Exp $'
 ! !