--- a/TestRunner.st	Mon Dec 11 16:33:45 2000 +0100
+++ b/TestRunner.st	Thu Dec 14 14:08:04 2000 +0100
@@ -500,13 +500,14 @@
         className := self scriptModel value at:(self script value) ifAbsent:nil.
         (ok and:[className notNil]) ifTrue:[
             cls := Smalltalk at:className.
-            description := cls perform:#description ifNotUnderstood:nil.
-            description notNil ifTrue:[
-                self displayMode: description.
-                self displayDetails:nil.
+            (cls class implements:#description) ifTrue:[
+                description := cls description.
             ]
         ].
     ].
+    self displayDetails:nil.
+    self displayMode: (description ? '').
+    self displayGray.
 
     "Created: / 21.6.2000 / 11:31:25 / Sames"
     "Modified: / 21.6.2000 / 11:32:54 / Sames"
@@ -617,6 +618,10 @@
 	self displayDetails: result printString.
 !
 
+displayGray
+        self displayColor: (View defaultViewBackgroundColor)
+!
+
 displayGreen
 	self displayColor: ColorValue green
 !
@@ -683,5 +688,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.8 2000-12-11 15:33:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.9 2000-12-14 13:08:04 cg Exp $'
 ! !