--- a/compiler/PEGFsaCharacterTransition.st	Tue Aug 18 22:16:18 2015 +0100
+++ b/compiler/PEGFsaCharacterTransition.st	Tue Aug 18 22:46:10 2015 +0100
@@ -179,19 +179,6 @@
     ^ complement
 !
 
-disjunction: transition
-    | disjunction |
-    disjunction := Array new: 255.
-    
-    1 to: 255 do: [ :index |
-        disjunction
-            at: index 
-            put: ((self characterSet at: index) xor: [transition characterSet at: index])
-    ].
-
-    ^ disjunction
-!
-
 intersection: transition
     | intersection |
     intersection := Array new: 255.