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