--- a/compiler/PPCInliningVisitor.st	Tue May 12 01:24:03 2015 +0100
+++ b/compiler/PPCInliningVisitor.st	Thu May 21 14:12:22 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 PPCNodeVisitor subclass:#PPCInliningVisitor
-	instanceVariableNames:'acceptedNodes'
+	instanceVariableNames:'canInline acceptedNodes'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Visitors'
@@ -81,6 +81,14 @@
     "Modified: / 23-04-2015 / 12:15:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+visitStarCharSetPredicateNode: node
+    ^ self markForInline: node
+!
+
+visitStarMessagePredicateNode: node
+    ^ self markForInline: node
+!
+
 visitTokenConsumeNode: node
     super visitTokenConsumeNode: node.
     node name isNil ifTrue: [