--- a/BlockNode.st	Thu Aug 22 17:54:57 2019 +0200
+++ b/BlockNode.st	Thu Aug 22 17:55:00 2019 +0200
@@ -1154,6 +1154,10 @@
     "stub code automatically generated - please change if required"
 
     ^ aVisitor visitBlockNode:self
+!
+
+childrenDo:aBlock
+    self statements:statements do:aBlock
 ! !
 
 !BlockNode class methodsFor:'documentation'!