--- a/compiler/PPCInliningVisitor.st	Wed May 20 16:47:52 2015 +0100
+++ b/compiler/PPCInliningVisitor.st	Thu May 21 14:35:34 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 PPCNodeVisitor subclass:#PPCInliningVisitor
-	instanceVariableNames:'acceptedNodes'
+	instanceVariableNames:'canInline acceptedNodes'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Visitors'
@@ -89,6 +89,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: [