--- a/quickSelfTest/SelfTest.st	Thu Mar 24 00:15:05 2016 +0100
+++ b/quickSelfTest/SelfTest.st	Thu Mar 24 00:17:28 2016 +0100
@@ -82,11 +82,11 @@
 "/
 "/ run the suite
 "/
-(Smalltalk commandLineArgumentNamed:'--skipTests') notNil ifTrue:[
+(Smalltalk commandLineArguments includes:'--skipTests') ifTrue:[
     Stdout showCR:'Skipping suite.'.
 ] ifFalse:[
     Stdout showCR:'Running suite...'.
-    debugging := (Smalltalk commandLineArgumentNamed:'--debug') notNil.
+    debugging := (Smalltalk commandLineArguments includes:'--debug').
     result := suite
 		run:TestResultStX new
 		beforeEachDo:[:test |
@@ -137,7 +137,7 @@
 	    'stx:goodies/soap'
 ) do:[:p | Smalltalk loadPackage:p].
 
-(Smalltalk commandLineArgumentNamed:'--skipMetrics') notNil ifTrue:[
+(Smalltalk commandLineArguments includes:'--skipMetrics') ifTrue:[
     Stdout showCR:'Skipping metrics.'.
 ] ifFalse:[
     'metrics.xml' asFilename writingFileDo:[:stream |