--- a/quickSelfTest/SelfTest.st	Wed Nov 07 20:33:05 2012 +0100
+++ b/quickSelfTest/SelfTest.st	Wed Nov 07 22:20:40 2012 +0100
@@ -123,26 +123,29 @@
 Stdout showCR:(' %1 errors.' bindWith:result errorCount).
 
 'metrics.xml' asFilename writingFileDo:[:stream |
-    MetricsReporter
-	reportPackages:{
-	    '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:goodies/xml'
-	    'stx:goodies/soap'
-	    'stx:libjavascript'
+    MetricsReporter new
+	stream: stream;
+	packages:{
+	    '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:goodies/xml'    .
+	    'stx:goodies/soap'   .
+	    'stx:libjavascript'  .
 	}
-	format:#xml_metrics
-	on:stream.
+	classMetricNames: #();
+	methodMetricNames: #();
+	packageMetricNames: #( 'LOC' 'NOM' 'NOC');
+	reportXml_metrics.
 ].
 
 !