--- a/Object.st	Tue Sep 23 14:34:27 2003 +0200
+++ b/Object.st	Thu Sep 25 19:13:31 2003 +0200
@@ -563,6 +563,8 @@
     "Modified: 23.4.1996 / 16:00:07 / cg"
 ! !
 
+
+
 !Object methodsFor:'Compatibility-ST80'!
 
 isMetaclass
@@ -2906,23 +2908,20 @@
 
 !Object methodsFor:'debugging'!
 
-assert:aBoolean
+assert:aBooleanOrBlock
     "fail, if the argument is not true and report an error"
 
     "{ Pragma: +optSpace }"
 
-    self assert:aBoolean message:'Assertion failed'
-!
-
-assert:aBoolean message:messageIfFailing
+    self assert:aBooleanOrBlock message:'Assertion failed'
+!
+
+assert:aBooleanOrBlock message:messageIfFailing
     "fail, if the argument is not true and report an error"
 
     "{ Pragma: +optSpace }"
 
-    (aBoolean isBoolean) ifFalse:[ 
-        self error:'non boolean assertion' 
-    ].
-    aBoolean ifFalse:[
+    (aBooleanOrBlock value) ifFalse:[
         self error:messageIfFailing
     ].
 !
@@ -7810,6 +7809,8 @@
     "
 ! !
 
+
+
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore    
@@ -9199,7 +9200,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.482 2003-09-03 15:59:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.483 2003-09-25 17:13:31 cg Exp $'
 ! !
 
 Object initialize!