--- a/TestCase.st	Thu Feb 07 18:19:00 2002 +0100
+++ b/TestCase.st	Mon Feb 25 21:01:09 2002 +0100
@@ -13,11 +13,11 @@
 initialize
     "ensure, that the sunit extensions are loaded"
 
-    (Class implements:#sunitName) ifFalse:[
-	Smalltalk fileIn:'extensions.st' inPackage:(self package)
+    (Class includesSelector:#sunitName) ifFalse:[
+        Smalltalk fileIn:'extensions.st' inPackage:(self package)
     ].    
     TestFailure isLoaded ifFalse:[
-	TestFailure autoload
+        TestFailure autoload
     ].
 
     "
@@ -323,6 +323,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.18 2001-12-21 15:46:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.19 2002-02-25 20:00:53 cg Exp $'
 ! !
 TestCase initialize!

--- a/TestRunner.st	Thu Feb 07 18:19:00 2002 +0100
+++ b/TestRunner.st	Mon Feb 25 21:01:09 2002 +0100
@@ -718,7 +718,7 @@
         className := self selectedScript string.
         (ok and:[className notNil]) ifTrue:[
             cls := Smalltalk at:className.
-            (cls class implements:#description) ifTrue:[
+            (cls class includesSelector:#description) ifTrue:[
                 description := cls description.
             ]
         ].
@@ -1067,5 +1067,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.30 2002-02-07 17:19:00 james Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.31 2002-02-25 20:01:09 cg Exp $'
 ! !