--- a/compiler/tests/PPCTokenizingVisitorTest.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/tests/PPCTokenizingVisitorTest.st	Mon Aug 17 12:13:16 2015 +0100
@@ -21,7 +21,7 @@
 
 testTokenNode1
     | nilNode |
-    nilNode := PPCNilNode new.
+    nilNode := PPCCharacterNode new.
     node := PPCTokenNode new
         child: nilNode.
     result := visitor visit: node.
@@ -30,8 +30,8 @@
     self assert: result parser type: PPCTokenConsumeNode.
     self assert: result parser child = node.
     
-    self assert: result tokenizer children size = 2.
-    self assert: (result tokenizer children anySatisfy: [ :e | e =  node ]).
+    self assert: result tokens children size = 1.
+    self assert: (result tokens children anySatisfy: [ :e | e =  node ]).
 !
 
 testTokenizingParserNode
@@ -40,12 +40,12 @@
     
     self assert: result type: PPCTokenizingParserNode.
     self assert: result parser = node.
-    self assert: result tokenizer children size = 1.
+    self assert: result tokens children size = 0.
 !
 
 testTokenizingParserNode2
     | nilNode |
-    nilNode := PPCNilNode new.
+    nilNode := PPCCharacterNode new.
     node := PPCTokenNode new
         child: nilNode.
     result := visitor visit: node.
@@ -54,8 +54,8 @@
     self assert: result parser type: PPCTokenConsumeNode.
     self assert: result parser child = node.
     
-    self assert: result tokenizer children size = 2.
-    self assert: (result tokenizer children anySatisfy: [ :e | e =  node ]).
+    self assert: result tokens children size = 1.
+    self assert: (result tokens children anySatisfy: [ :e | e =  node ]).
 !
 
 testTrimmingTokenNode1
@@ -73,7 +73,7 @@
     self assert: result parser type: PPCTokenConsumeNode.
     self assert: result parser child = node.
     
-    self assert: result tokenizer children size = 2.
-    self assert: (result tokenizer children anySatisfy: [ :e | e =  node ]).
+    self assert: result tokens children size = 1.
+    self assert: (result tokens children anySatisfy: [ :e | e =  node ]).
 ! !