--- a/compiler/PPCUniversalResultStrategy.st	Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/PPCUniversalResultStrategy.st	Mon Aug 24 15:34:14 2015 +0100
@@ -33,6 +33,7 @@
 !PPCUniversalResultStrategy methodsFor:'as yet unclassified'!
 
 recordFailure: retval
+    self error: 'deprecated?'.
     codeGen codeRecordFailure: (self indexForRetval: retval)
 !
 
@@ -41,6 +42,7 @@
 !
 
 recordMatch: retval
+    self error: 'deprecated?'.
     codeGen codeComment: 'symbol: ', retval storeString.
     codeGen codeRecordMatch: (self indexForRetval: retval)
 !
@@ -55,6 +57,11 @@
     ^ codeGen code: 'self reset.'	
 !
 
+returnMatch: retval offset: offset
+    codeGen codeComment: 'symbol: ', retval storeString.
+    codeGen codeReturn: [ codeGen codeRecordMatch: (self indexForRetval: retval) offset: offset ]
+!
+
 returnResult: state
     self assert: (state isKindOf: PEGFsaState).
     codeGen codeReturn.