diff -r b5316ef15274 -r f6f68d32de73 compiler/tests/PPCTokenizingTest.st
--- a/compiler/tests/PPCTokenizingTest.st	Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/tests/PPCTokenizingTest.st	Mon Aug 24 15:34:14 2015 +0100
@@ -321,6 +321,18 @@
         
 !
 
+testCompileStar3
+    parser := 'a' asParser trimmingToken star, 'b' asParser trimmingToken
+         compileWithConfiguration: configuration.
+    
+    self assert: parser parse: 'ab'.
+    self assert: parser parse: 'aaab'.
+    self assert: result size = 2.
+    self assert: result first size = 3.
+            
+    self assert: parser fail: 'ac'.
+!
+
 testCompileTokenComplex2
     |  a b argumentsWith  |
     "based on the PPSmalltlakGrammar>>blockArgumentsWith"
@@ -335,7 +347,7 @@
     parser := argumentsWith compileWithConfiguration: configuration.
     self assert: parser parse: '|'.
 
-    self assert: parser parse: ']'.
+    self assert: parser parse: ']' end: 0.
 !
 
 testCompileTokenComplex3
@@ -454,7 +466,8 @@
     self assert: parser parse: 'foofoo'.
     self assert: result first inputValue = 'foo'.
     self assert: result second inputValue = 'foo'.
-    self assert: (parser class methodDictionary includesKey: #fooToken).
+    self assert: (parser scanner class methodDictionary includesKey: #fooToken).
+    self assert: (parser scanner class methodDictionary includesKey: #scan_fooToken).
 !
 
 testWhitespace
@@ -473,7 +486,7 @@
     self assert: parser parse: ' foo '.
     self assert: result first inputValue = 'foo'.
 
-    self assert: (context invocations select: [:e | e = #consumeWhitespace ]) size = 3.
+    self assert: (context invocations select: [:e | e = #scan_consumeWhitespace ]) size = 3.
 !
 
 testWhitespace2
@@ -493,7 +506,7 @@
     self assert: result first inputValue = 'foo'.
     self assert: result second inputValue = 'foo'.
 
-    self assert: (context invocations select: [:e | e = #consumeWhitespace ]) size = 4.
+    self assert: (context invocations select: [:e | e = #scan_consumeWhitespace ]) size = 4.
 !
 
 testWhitespace3
@@ -514,6 +527,6 @@
     self assert: result second inputValue = 'foo'.
     self assert: result third inputValue = 'foo'.
 
-    self assert: (context invocations select: [:e | e = #consumeWhitespace ]) size = 5.
+    self assert: (context invocations select: [:e | e = #scan_consumeWhitespace ]) size = 5.
 ! !