diff -r 1e45d3c96ec5 -r b5316ef15274 compiler/PPCTokenConsumeNode.st
--- a/compiler/PPCTokenConsumeNode.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCTokenConsumeNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -15,10 +15,31 @@
     super name: value.
     
     self child name isNil ifTrue: [ 
-        self child name: self child prefix, '_', value.
+        self child name: value.
     ]
 !
 
+nextFsa
+    ^ self propertyAt: #nextFsa
+!
+
+nextFsa: aPEGFsa
+    self propertyAt: #nextFsa put: aPEGFsa
+! !
+
+!PPCTokenConsumeNode methodsFor:'as yet unclassified'!
+
+markForInline
+    self error: 'current infrastructure does not allow for this!!'.
+    ^ super markForInline
+! !
+
+!PPCTokenConsumeNode methodsFor:'ids'!
+
+defaultName
+    ^ #token
+!
+
 prefix
     ^ #consume
 ! !