--- a/ParseNode.st	Tue Apr 24 18:33:38 2018 +0200
+++ b/ParseNode.st	Tue May 01 11:38:33 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -369,7 +371,12 @@
 allNodesDo:aBlock
     "evaluate aBlock for each variable-node here and in subnodes"
 
-    aBlock value:self
+    aBlock value:self.
+    self allSubNodesDo:aBlock.
+!
+
+allSubNodesDo:aBlock
+    "/ self subclassResponsibility.
 !
 
 messageNodesDo:aBlock