--- a/TestCase.st	Sun Dec 10 14:03:25 2000 +0100
+++ b/TestCase.st	Sun Dec 10 14:19:13 2000 +0100
@@ -54,7 +54,7 @@
 assert: aBoolean
     "fail, if the argument is not true"
 
-    (aBoolean isKindOf:Boolean) ifFalse:[ self fail ].
+    (aBoolean isKindOf:Boolean) ifFalse:[ self error:'non boolean assertion' ].
     aBoolean ifFalse: [self signalFailure: 'Assertion failed']
 
     "Modified: / 21.6.2000 / 10:00:05 / Sames"
@@ -193,6 +193,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.7 2000-12-10 13:03:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.8 2000-12-10 13:19:13 cg Exp $'
 ! !
 TestCase initialize!