--- a/compiler/PPCGuard.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCGuard.st	Thu Apr 30 23:43:14 2015 +0200
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#PPCGuard
-	instanceVariableNames:'node classification id message'
+	instanceVariableNames:'classification id message'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Core'
@@ -81,13 +81,12 @@
 	compiler add: '(context peek ', message, ')'
 !
 
-initializeFor: aPPCNode
-	node := aPPCNode.
+initializeFor: node
 	message := #unknown.
 	id := nil.
 	
 	"No Guards for trimming parser so far"
-	((node firstSetSuchThat: [ :e | e isKindOf: PPCTrimNode ]) isEmpty not) ifTrue: [ 
+	((node firstSetSuchThat: [ :e | e isKindOf: PPCTrimNode ]) isEmpty) ifFalse: [ 
 		^ self initializeForNoGuard 
 	].
 	(node acceptsEpsilon) ifTrue: [