--- a/compiler/tests/PPCNodeTest.st	Wed May 20 16:47:52 2015 +0100
+++ b/compiler/tests/PPCNodeTest.st	Thu May 21 14:35:34 2015 +0100
@@ -247,13 +247,24 @@
 testConvertTrimmingToken3
     | parser tree |
     
+    parser := 'foo' asParser trimmingToken star.
+    tree := self treeFrom: parser.
+    
+    self assert: tree type: PPCStarNode.
+    self assert: tree child type: PPCTrimmingTokenNode.
+    self assert: tree child child type: PPCLiteralNode.	
+    self assert: tree child child isMarkedForInline.
+!
+
+testConvertTrimmingToken4
+    | parser tree |
+    
     parser := $d asParser trimmingToken star.
     tree := self treeFrom: parser.
     
     self assert: tree type: PPCStarNode.
-    self assert: tree child type: PPCTrimmingTokenNode.
-    self assert: tree child child type: PPCCharacterNode.	
-    self assert: tree child child isMarkedForInline.
+    self assert: tree child type: PPCTrimmingCharacterTokenNode.
+    self assert: tree child isMarkedForInline not.
 ! !
 
 !PPCNodeTest methodsFor:'tests - epsilon'!