--- a/compiler/PPCTrimmingTokenNode.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCTrimmingTokenNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -21,10 +21,6 @@
     children at: 2 put: anObject
 !
 
-prefix
-    ^ #token
-!
-
 tokenClass
     
     ^ tokenClass
@@ -93,6 +89,12 @@
     ^ super hash bitXor: tokenClass hash
 ! !
 
+!PPCTrimmingTokenNode methodsFor:'ids'!
+
+defaultName
+    ^ #token
+! !
+
 !PPCTrimmingTokenNode methodsFor:'initialization'!
 
 initialize