--- a/TestResult.st	Wed Jan 27 17:03:53 2016 +0100
+++ b/TestResult.st	Wed Jan 27 17:04:19 2016 +0100
@@ -25,7 +25,7 @@
 !TestResult class methodsFor:'instance creation'!
 
 new
-    self sunitName == #TestResult ifTrue:[
+    self == TestResult ifTrue:[
         ^ self defaultResultClass basicNew initialize.
     ] ifFalse:[
         ^ self basicNew initialize
@@ -561,14 +561,14 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.57 2015-02-06 08:53:20 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.57 2015-02-06 08:53:20 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: TestResult.st,v 1.57 2015-02-06 08:53:20 cg Exp $'
+    ^ '$Id$'
 ! !