--- a/compiler/PEGFsaTransition.st	Tue Aug 18 22:46:10 2015 +0100
+++ b/compiler/PEGFsaTransition.st	Mon Aug 24 15:56:20 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#PEGFsaTransition
-	instanceVariableNames:'destination priority characterSet'
+	instanceVariableNames:'destination priority'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-FSA'
@@ -19,14 +19,6 @@
 
 !PEGFsaTransition methodsFor:'accessing'!
 
-characterSet
-    ^ characterSet
-!
-
-characterSet: anObject
-    characterSet := anObject
-!
-
 destination
     ^ destination
 !
@@ -88,7 +80,6 @@
 
 postCopy
     super postCopy.
-    characterSet := characterSet copy.
 ! !
 
 !PEGFsaTransition methodsFor:'gt'!
@@ -109,10 +100,6 @@
 
 !PEGFsaTransition methodsFor:'modifications'!
 
-addCharacter: character
-    characterSet at: character codePoint put: true
-!
-
 decreasePriority
     self decreasePriorityBy: 1
 !
@@ -180,7 +167,7 @@
 !PEGFsaTransition methodsFor:'testing'!
 
 accepts: character
-    ^ characterSet at: character codePoint
+    ^ self subclassResponsibility
 !
 
 isCharacterTransition