--- a/MetricsReporter.st	Wed Nov 07 21:43:33 2012 +0100
+++ b/MetricsReporter.st	Wed Nov 07 22:04:55 2012 +0100
@@ -125,14 +125,26 @@
     ^ classMetricNames ? #( 'NOM' 'LOC' )
 !
 
+classMetricNames:something
+    classMetricNames := something.
+!
+
 methodMetricNames
     ^ methodMetricNames ? #( "'LOC'" )
 !
 
+methodMetricNames:something
+    methodMetricNames := something.
+!
+
 packageMetricNames
     ^ packageMetricNames ? #( 'LOC' )
 !
 
+packageMetricNames:something
+    packageMetricNames := something.
+!
+
 packages:something
     packages := something.
 !
@@ -303,9 +315,9 @@
 !MetricsReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/MetricsReporter.st,v 1.3 2012-11-07 20:43:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/MetricsReporter.st,v 1.4 2012-11-07 21:04:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/MetricsReporter.st,v 1.3 2012-11-07 20:43:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/MetricsReporter.st,v 1.4 2012-11-07 21:04:55 cg Exp $'
 ! !