--- a/TestSuite.st	Tue Nov 06 23:01:34 2012 +0100
+++ b/TestSuite.st	Tue Nov 06 23:02:31 2012 +0100
@@ -168,7 +168,7 @@
 
 run:result beforeEachDo:before afterEachDo:after resetResources:resetResources debug:doDebug
     result timestamp:(Timestamp now).
-    result name:name.
+    result name isNil ifTrue:[ result name:name ].  "will only change once"
     [
         self tests do:[:each |
             self sunitChanged:each.
@@ -236,7 +236,7 @@
 !TestSuite class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.33 2012-10-24 22:36:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.34 2012-11-06 22:02:31 cg Exp $'
 !
 
 version_SVN