--- a/compiler/PPCTokenizingParserNode.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCTokenizingParserNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -11,6 +11,10 @@
 
 !PPCTokenizingParserNode methodsFor:'accessing'!
 
+defaultName
+    ^ #tokenizingParser
+!
+
 initialize
     super initialize.
     children := Array new: 3
@@ -24,10 +28,6 @@
     children at: 1 put: node
 !
 
-prefix
-    ^ #tokenizingParser
-!
-
 tokenizer
     ^ children at: 2
 !
@@ -36,12 +36,20 @@
     ^ children at: 2 put: node
 !
 
-whitespace
+tokens
     ^ children at: 3
 !
 
+tokens: anObject
+    children at: 3 put: anObject
+!
+
+whitespace
+    ^ children at: 2
+!
+
 whitespace: node
-    children at: 3 put: node
+    children at: 2 put: node
 ! !
 
 !PPCTokenizingParserNode methodsFor:'visiting'!