--- a/compiler/PPCNotLiteralNode.st	Wed Nov 05 21:40:01 2014 +0000
+++ b/compiler/PPCNotLiteralNode.st	Wed Nov 05 23:05:19 2014 +0000
@@ -20,6 +20,10 @@
 	^ literal first asParser
 !
 
+firstCharSet
+	^ PPCharSetPredicate on: [:e | e ~= literal first ]
+!
+
 literal
 	
 	^ literal