--- a/compiler/PPCTokenStarMessagePredicateNode.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCTokenStarMessagePredicateNode.st	Mon Nov 24 00:09:23 2014 +0000
@@ -13,6 +13,14 @@
 	^ self
 !
 
+asInlined
+	^ PPCInlineTokenStarMessagePredicateNode new
+		name: name;
+		message: message;
+		child: child;
+		yourself
+!
+
 compileWith: compiler effect: effect id: id
 	compiler startMethod: id.
 	compiler add: '[ context peek ', message,' ] whileTrue: ['.
@@ -22,5 +30,17 @@
 	compiler dedent.
 	compiler add: '].'.
  ^ compiler stopMethod.
+!
+
+rewrite: changeStatus
+
+	(message = #isSeparator) ifTrue: [ 
+		changeStatus change.
+		^ PPCTokenStarSeparatorNode new
+			name: name;
+			child: child;
+			message: message;
+			yourself.
+	]
 ! !