--- a/quickSelfTest/SelfTest.st	Wed Oct 31 13:42:40 2012 +0100
+++ b/quickSelfTest/SelfTest.st	Wed Nov 07 20:33:05 2012 +0100
@@ -121,4 +121,28 @@
 Stdout show:('  %1 passed,' bindWith:result passedCount).
 Stdout show:(' %1 failed,' bindWith:result failureCount).
 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'
+	}
+	format:#xml_metrics
+	on:stream.
+].
+
 !