--- a/compiler/tests/PPCDistinctScannerTest.st	Mon Aug 24 22:32:15 2015 +0100
+++ b/compiler/tests/PPCDistinctScannerTest.st	Mon Aug 24 23:42:53 2015 +0100
@@ -59,7 +59,7 @@
     | parser |
     parser := self fooToken, self overlappingToken.
     parser compileWithConfiguration: configuration.
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'foobaz' asPetitStream.
     scanner perform: #'consume_foo'.
@@ -73,7 +73,7 @@
     | parser |
     parser := self fooToken, self barToken.
     parser compileWithConfiguration: configuration.
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'foobar' asPetitStream.
     scanner perform: #'consume_foo'.
@@ -88,7 +88,7 @@
     parser := self aToken.
     parser compileWithConfiguration: configuration.
     
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'a' asPetitStream.
     scanner perform: #'scan_token'.
@@ -103,7 +103,7 @@
     parser := self fooToken.
     parser compileWithConfiguration: configuration.
     
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'foo' asPetitStream.
     scanner perform: #'scan_foo'.
@@ -118,7 +118,7 @@
     parser := self fooToken.
     parser compileWithConfiguration: configuration.
     
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'bar' asPetitStream.
     scanner perform: #'scan_foo'.
@@ -133,7 +133,7 @@
     parser := self fooToken, self idToken.
     parser compileWithConfiguration: configuration.
     
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'foothere' asPetitStream.
     scanner perform: #'scan_foo'.
@@ -154,7 +154,7 @@
     parser := self fooTrimmingToken, self idTrimmingToken.
     parser compileWithConfiguration: configuration.
     
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'foo there ' asPetitStream.
     scanner perform: #'foo'.
@@ -182,7 +182,7 @@
     parser := self fooToken, self idTrimmingToken.
     parser compileWithConfiguration: configuration.
     
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'foo there' asPetitStream.
     scanner perform: #'foo'.
@@ -198,7 +198,7 @@
     parser := self fooTrimmingToken, self idTrimmingToken.
     parser compileWithConfiguration: configuration.
     
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'foo there' asPetitStream.
     scanner perform: #'scan_foo'.
@@ -213,7 +213,7 @@
     parser := self fooTrimmingToken, self idTrimmingToken.
     parser compileWithConfiguration: configuration.
     
-    scanner := (Smalltalk at: configuration arguments scannerName) new.
+    scanner := (Smalltalk at: configuration options scannerName) new.
 
     scanner stream: 'foo there' asPetitStream.
     result := scanner perform: #'foo'.