--- a/compiler/PPCAbstractPredicateNode.st	Wed Nov 05 21:40:01 2014 +0000
+++ b/compiler/PPCAbstractPredicateNode.st	Wed Nov 05 23:05:19 2014 +0000
@@ -58,6 +58,10 @@
 
 firstCharParser
 	^ PPPredicateObjectParser on: predicate message: 'predicate expected'.
+!
+
+firstCharSet
+	^ PPCharSetPredicate on: predicate
 ! !
 
 !PPCAbstractPredicateNode methodsFor:'compiling'!