--- a/TestCoverageReporter.st	Wed Feb 18 16:05:18 2015 +0100
+++ b/TestCoverageReporter.st	Wed Feb 18 16:05:27 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:goodies/sunit' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#TestCoverageReporter
 	instanceVariableNames:'packages stream'
 	classVariableNames:''
@@ -265,16 +267,16 @@
 !
 
 reportFormatSelector:format
-    ^ ('report' , format asString capitalized) asSymbol
+    ^ ('report' , format asString asUppercaseFirst) asSymbol
 ! !
 
 !TestCoverageReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCoverageReporter.st,v 1.3 2013-12-12 11:38:56 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCoverageReporter.st,v 1.4 2015-02-18 15:05:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCoverageReporter.st,v 1.3 2013-12-12 11:38:56 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCoverageReporter.st,v 1.4 2015-02-18 15:05:27 cg Exp $'
 ! !