--- a/TestRunner.st	Fri Dec 14 00:40:21 2001 +0100
+++ b/TestRunner.st	Mon Dec 17 18:06:48 2001 +0100
@@ -788,8 +788,11 @@
 !
 
 freshTestSuite
+        |tests|
 
-	^TestSuitesScripter run: self tests contents
+        tests := self tests contents.
+        tests isNil ifTrue:[ ^ nil].
+        ^TestSuitesScripter run: tests
 
     "Modified: / 4.4.2000 / 20:13:41 / Sames"
 !
@@ -1026,5 +1029,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.26 2001-12-13 23:15:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.27 2001-12-17 17:06:48 cg Exp $'
 ! !