--- a/compiler/PPCTokenNode.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCTokenNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -11,10 +11,6 @@
 
 !PPCTokenNode methodsFor:'accessing'!
 
-prefix
-    ^ #token
-!
-
 tokenClass
     
     ^ tokenClass
@@ -40,6 +36,12 @@
     ^ super hash bitXor: tokenClass hash
 ! !
 
+!PPCTokenNode methodsFor:'ids'!
+
+defaultName
+    ^ #token
+! !
+
 !PPCTokenNode methodsFor:'testing'!
 
 isTokenNode