--- a/compiler/PEGFsaPair.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PEGFsaPair.st	Mon Aug 17 12:13:16 2015 +0100
@@ -52,3 +52,22 @@
     ^ first hash bitXor: second hash
 ! !
 
+!PEGFsaPair methodsFor:'enumerating'!
+
+detect: block
+    (block value: self first) ifTrue: [ ^ self first ].
+    (block value: self second) ifTrue: [ ^ self second ].	
+    
+    self error: 'not found!!'
+! !
+
+!PEGFsaPair methodsFor:'testing'!
+
+contains: block
+    ^ (block value: self first) or: [ block value: self second  ]
+!
+
+includes: anObject
+    ^ self first == anObject or: [ self second == anObject ]
+! !
+