--- a/compiler/PPCDelegateNode.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCDelegateNode.st	Sun May 10 06:28:36 2015 +0100
@@ -13,35 +13,39 @@
 !PPCDelegateNode methodsFor:'accessing'!
 
 child
-	^ child
+    ^ child
 !
 
 child: whatever
-	child := whatever 
+    child := whatever 
 !
 
 children
-	^ { child }
+    ^ { child }
 ! !
 
 !PPCDelegateNode methodsFor:'analysis'!
 
 acceptsEpsilon
-	^ child acceptsEpsilonOpenSet: (IdentitySet with: self).
+    ^ child acceptsEpsilonOpenSet: (IdentitySet with: self).
 !
 
 acceptsEpsilonOpenSet: set
-	(set includes: child) ifFalse: [ 
-		set add: child.
-		^ child acceptsEpsilonOpenSet: set 
-	].
-	^ false
+    (set includes: child) ifFalse: [ 
+        set add: child.
+        ^ child acceptsEpsilonOpenSet: set 
+    ].
+    ^ false
+!
+
+recognizedSentencesPrim
+    ^ self child recognizedSentencesPrim 
 ! !
 
 !PPCDelegateNode methodsFor:'transformation'!
 
 replace: node with: anotherNode
-	child == node ifTrue: [ child := anotherNode ]
+    child == node ifTrue: [ child := anotherNode ]
 ! !
 
 !PPCDelegateNode class methodsFor:'documentation'!