--- a/compiler/PPCInlineLiteralNode.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCInlineLiteralNode.st	Mon Nov 24 00:09:23 2014 +0000
@@ -1,6 +1,6 @@
 "{ Package: 'stx:goodies/petitparser/compiler' }"
 
-PPCAbstractLiteralNode subclass:#PPCInlineLiteralNode
+PPCLiteralNode subclass:#PPCInlineLiteralNode
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -37,6 +37,10 @@
 
 !PPCInlineLiteralNode methodsFor:'printing'!
 
+asInlined
+	^ self
+!
+
 printOn: aStream
 	aStream nextPutAll: '#inline'.
 	super printOn: aStream