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