--- a/SUnitTest.st	Thu Dec 13 23:43:25 2001 +0100
+++ b/SUnitTest.st	Thu Dec 13 23:50:27 2001 +0100
@@ -33,7 +33,8 @@
 !
 
 fail
-	self assert: false
+        "force a failure"
+        self assert: false
 !
 
 noop
@@ -165,5 +166,5 @@
 !SUnitTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitTest.st,v 1.5 2001-12-08 01:56:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitTest.st,v 1.6 2001-12-13 22:50:27 cg Exp $'
 ! !