--- a/compiler/PEGFsaGenerator.st	Wed Aug 26 21:41:20 2015 +0100
+++ b/compiler/PEGFsaGenerator.st	Wed Aug 26 23:01:00 2015 +0100
@@ -2,7 +2,7 @@
 
 "{ NameSpace: Smalltalk }"
 
-PPCNodeVisitor subclass:#PEGFsaGenerator
+PPCPass subclass:#PEGFsaGenerator
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''