--- a/Object.st	Fri Jan 21 17:53:26 2005 +0100
+++ b/Object.st	Fri Jan 21 18:01:41 2005 +0100
@@ -4282,6 +4282,19 @@
 
 !Object methodsFor:'evaluation'!
 
+argumentCount
+    "compatibility with Blocks and Messages.
+     Answer 0, since we only understand #value.
+
+     By implementing this, you can pass any object as an exception handler."
+
+    ^ 0
+
+    "
+        [1 // 0] on:ArithmeticError do:9999
+    "
+!
+
 value
     "return the receiver itself.
      This allows every object to be used where blocks or valueHolders
@@ -9192,7 +9205,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.517 2004-11-15 09:06:19 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.518 2005-01-21 17:01:41 stefan Exp $'
 ! !
 
 Object initialize!