--- a/compiler/PPCNotCharSetPredicateNode.st	Wed Nov 05 21:40:01 2014 +0000
+++ b/compiler/PPCNotCharSetPredicateNode.st	Wed Nov 05 23:05:19 2014 +0000
@@ -32,6 +32,11 @@
 
 firstCharParser
 	^ (PPPredicateObjectParser on: predicate message: 'predicate not expected') not.
+!
+
+firstCharSet
+	^ firstCharSet := PPCharSetPredicate on: [:e | (predicate value:e)  not ] 
+	
 ! !
 
 !PPCNotCharSetPredicateNode class methodsFor:'documentation'!