--- a/quickSelfTest/SelfTest.st	Sat Mar 18 04:55:07 2017 +0000
+++ b/quickSelfTest/SelfTest.st	Mon Mar 27 15:39:25 2017 +0200
@@ -110,49 +110,4 @@
     Stdout showCR:(' %1 errors.' bindWith:result errorCount).
 ].
 
-"/
-"/ generate a metrics report
-"/
-#(
-	    'stx:libbasic'
-	    'stx:libbasic2'
-	    'stx:libbasic3'
-	    'stx:libcomp'
-	    'stx:libview'
-	    'stx:libview2'
-	    'stx:libwidg'
-	    'stx:libwidg2'
-	    'stx:libtool'
-	    'stx:libtool2'
-	    'stx:libui'
-	    'stx:libhtml'
-	    'stx:libboss'
-	    'stx:libdb'
-	    'stx:libjavascript'
-	    'stx:goodies/xml/stx'
-	    'stx:goodies/xml/yaxo'
-	    'stx:goodies/xml/xsl'
-	    'stx:goodies/xml/xpath'
-	    'stx:goodies/net'
-	    'stx:goodies/communication'
-	    'stx:goodies/webServer'
-	    'stx:goodies/soap'
-) do:[:p | Smalltalk loadPackage:p].
-
-(Smalltalk commandLineArguments includes:'--skipMetrics') ifTrue:[
-    Stdout showCR:'Skipping metrics.'.
-] ifFalse:[
-    'metrics.xml' asFilename writingFileDo:[:stream |
-	MetricsReporter new
-	    stream: stream;
-	    packages:{
-		'stx:*'       .
-	    };
-	    classMetricNames: #();
-	    methodMetricNames: #();
-	    packageMetricNames: #( 'LOC' 'NOM' 'NOC');
-	    reportXml_metrics.
-    ].
-].
-
-!
+!
\ No newline at end of file