--- a/PPParser.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/PPParser.st	Mon Nov 24 00:09:23 2014 +0000
@@ -26,6 +26,7 @@
 
 
 
+
 !PPParser methodsFor:'accessing'!
 
 children
@@ -302,6 +303,17 @@
 	^ self trimSpaces
 ! !
 
+!PPParser methodsFor:'operators'!
+
+// aParser 
+	"
+		Answer a new parser that parses the receiver, if the receiver fails try with aParser (ordered-choice).
+		If the receiver passes, limit must pass as well.
+	"
+	
+	^ PPLimitedChoiceParser with: self with: aParser
+! !
+
 !PPParser methodsFor:'operators-convenience'!
 
 withoutSeparators