--- a/TestRunner.st	Fri Aug 23 12:22:14 2002 +0200
+++ b/TestRunner.st	Thu Sep 05 12:34:43 2002 +0200
@@ -981,7 +981,7 @@
     self displayMode: 'N/A'.
     self displayDetails:'...'.
     self updateDefects.
-    self enableRunButton value: false.
+    self enableRunButton value: (self script value notNil).
     self enableRunDefectsButton value: false.
     self enableDebugButton value: false.
     self displayDefault
@@ -1072,5 +1072,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.37 2002-08-23 10:22:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.38 2002-09-05 10:34:43 cg Exp $'
 ! !