What do you think of adding it to the API?
Something like http://forum.world.st/file/n3038839/PPParser-skipUntil.st PPParser-skipUntil.st :
PPParser>>skipUntil
^ self negate plus, self ==> [ :nodes | nodes second ].
parser2 := 'dd' asParser skipUntil. parser2 parse: 'kslkxjclkxjcdd'. "Returns 'dd'"