--- a/compiler/tests/PPCScannerCodeGeneratorTest.st	Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/tests/PPCScannerCodeGeneratorTest.st	Mon Aug 24 15:34:14 2015 +0100
@@ -14,7 +14,7 @@
 fail: stream rule: rule 
     scanner initialize.
     scanner stream: stream asPetitStream. 
-    scanner perform: rule.
+    scanner perform: ('scan_', rule) asSymbol.
     
     result := scanner polyResult.
         
@@ -28,7 +28,7 @@
 parse: stream token: token rule: rule position: position
     scanner initialize.
     scanner stream: stream asPetitStream. 
-    scanner perform: rule.
+    scanner perform: ('scan_', rule) asSymbol.
     result := scanner polyResult.
         
     self assert: (result at: token) = position.