--- a/TestCase.st	Mon Sep 21 10:10:10 2009 +0200
+++ b/TestCase.st	Thu Oct 01 15:43:58 2009 +0200
@@ -237,6 +237,15 @@
 			
 ! !
 
+!TestCase class methodsFor:'misc ui support'!
+
+iconInBrowserSymbol
+    <resource: #programImage>
+
+    self theNonMetaclass isAbstract ifTrue:[^ super iconInBrowserSymbol].
+    ^ #testCaseClassIcon
+! !
+
 !TestCase class methodsFor:'quick testing'!
 
 assert: aBoolean
@@ -768,7 +777,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.50 2009-09-18 09:09:23 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.51 2009-10-01 13:43:58 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.51 2009-10-01 13:43:58 cg Exp $'
 ! !
 
 TestCase initialize!