--- a/compiler/PPCTokenDetector.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCTokenDetector.st	Mon Aug 17 12:13:16 2015 +0100
@@ -43,7 +43,7 @@
 
 visitTrimNode: node
     self visitChildren: node.
-    
+
     (node child isKindOf: PPCTokenNode) ifTrue: [  
         self change.
         ^ PPCTrimmingTokenNode new
@@ -51,11 +51,13 @@
             child: node child child;
             tokenClass: node child tokenClass;
             whitespace: node trimmer;
+            parser: node parser;
             yourself
     ]. 
 
     (node child isKindOf: PPCTokenConsumeNode) ifTrue: [  
         self change.
+        self halt: 'JK: this can happen???'.
         ^ PPCTrimmingTokenNode new
             name: node name;
             child: node child;