--- a/compiler/PPCTokenNode.st	Wed Nov 05 21:40:01 2014 +0000
+++ b/compiler/PPCTokenNode.st	Wed Nov 05 23:05:19 2014 +0000
@@ -18,9 +18,7 @@
 !PPCTokenNode methodsFor:'accessing'!
 
 initialize
-    super initialize.
-
-    "Modified: / 26-10-2014 / 01:34:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	super initialize.
 !
 
 rewrite: changeStatus
@@ -49,18 +47,9 @@
 	|    |
 
 	compiler startMethod: id.
-	compiler startTokenMode.
 	compiler addVariable: 'start'.
 	compiler addVariable: 'end'.
 	
-"
-	(compiler guards and: [ (guardSet := compiler guardCharSet: self) isNil not ]) ifTrue: [ 	
-		guardSetId := (compiler idFor: guardSet prefixed: #guard).
-		compiler addConstant: guardSet as: guardSetId.
-		compiler add: 'context atEnd ifTrue: [ ^ self error ].'.
-		compiler add: '(', guardSetId, ' value: context peek) ifFalse: [ ^ self error ].'.
-	].
-"
 	compiler add: 'start := context position + 1.'.
 	compiler call: (self child compileWith: compiler).
 	compiler add: 'error ifTrue: [ ^ self ].'.	
@@ -70,7 +59,6 @@
 																start: start  
 																stop: end
 																value: nil'.
-	compiler stopTokenMode.
  ^ compiler stopMethod.	
 !