--- a/TestRunner.st	Fri May 09 19:42:33 2003 +0200
+++ b/TestRunner.st	Wed Jun 18 00:42:03 2003 +0200
@@ -823,8 +823,9 @@
 freshTestSuite
         |tests suite|
 
-        tests := self tests contents string.
+        tests := self tests contents.
         tests isNil ifTrue:[ ^ nil].
+        tests := tests string.
         suite := TestSuitesScripter run: tests.
         ^ suite
 
@@ -1131,5 +1132,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.49 2002-12-10 09:52:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.50 2003-06-17 22:42:03 cg Exp $'
 ! !