--- a/compiler/PPCTokenNode.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCTokenNode.st	Sun May 10 06:28:36 2015 +0100
@@ -12,37 +12,43 @@
 !PPCTokenNode methodsFor:'accessing'!
 
 prefix
-	^ #token
+    ^ #token
 !
 
 tokenClass
-	
-	^ tokenClass
+    
+    ^ tokenClass
 !
 
 tokenClass: anObject
-	
-	tokenClass := anObject
+    
+    tokenClass := anObject
 !
 
 tokenType
-	^ self identityHash printString
+    ^ self identityHash printString
 ! !
 
 !PPCTokenNode methodsFor:'comparing'!
 
 = anotherNode
-	super = anotherNode ifFalse: [ ^ false ].
-	^ tokenClass = anotherNode tokenClass.
+    super = anotherNode ifFalse: [ ^ false ].
+    ^ tokenClass = anotherNode tokenClass.
 !
 
 hash
-	^ super hash bitXor: tokenClass hash
+    ^ super hash bitXor: tokenClass hash
+! !
+
+!PPCTokenNode methodsFor:'testing'!
+
+isTokenNode
+    ^ true
 ! !
 
 !PPCTokenNode methodsFor:'visiting'!
 
 accept: visitor
-	^ visitor visitTokenNode: self
+    ^ visitor visitTokenNode: self
 ! !