--- a/ParseNode.st	Mon Apr 23 22:17:22 2018 +0200
+++ b/ParseNode.st	Mon Apr 23 22:38:36 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -361,7 +363,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