--- a/compiler/PPCPluggableNode.st	Wed Nov 05 21:40:01 2014 +0000
+++ b/compiler/PPCPluggableNode.st	Wed Nov 05 23:05:19 2014 +0000
@@ -50,6 +50,10 @@
 	^  block asParser
 !
 
+firstCharSet
+	^ PPCharSetPredicate on: [:char | (block asParser parse: char asString) isPetitFailure not ]
+!
+
 prefix
 	^ #plug
 ! !