--- a/TestCase.st	Wed Oct 25 17:51:59 2000 +0200
+++ b/TestCase.st	Wed Oct 25 19:30:46 2000 +0200
@@ -1,5 +1,3 @@
-'From Smalltalk/X, Version:4.1.1 on 24-oct-2000 at 08:10:32 pm'                 !
-
 "{ Package: 'stx:goodies/sunit' }"
 
 Object subclass:#TestCase
@@ -60,10 +58,10 @@
 !
 
 signalFailure: aString
-	TestResult failure sunitSignalWith: aString
+        "/ TestResult failure sunitSignalWith: aString
+        TestResult failure raiseErrorString:aString in:thisContext sender sender .
 
-    "Modified: / 21.6.2000 / 10:01:34 / Sames"
-! !
+    "Modified: / 21.6.2000 / 10:01:34 / Sames"! !
 
 !TestCase methodsFor:'Dependencies'!
 
@@ -108,15 +106,14 @@
 	(self class selector: testSelector) runCaseAsFailure!
 
 openDebuggerOnFailingTestMethod
-	"SUnit has halted one step in front of the failing test method. 
-	Step over the 'self halt' and send into 'self perform: testSelector' 
-	to see the failure from the beginning"
+        "SUnit has halted one step in front of the failing test method. 
+        Step over the 'self halt' and send into 'self perform: testSelector' 
+        to see the failure from the beginning"
 
-	self halt.
-	self perform: testSelector sunitAsSymbol
+        "/ self halt.
+        self perform: testSelector sunitAsSymbol
 
-    "Modified: / 21.6.2000 / 10:03:37 / Sames"
-!
+    "Modified: / 21.6.2000 / 10:03:37 / Sames"!
 
 run
 	| result |