--- a/Block.st	Fri Feb 29 11:14:50 2008 +0100
+++ b/Block.st	Fri Feb 29 11:15:13 2008 +0100
@@ -599,6 +599,11 @@
     ^ nargs
 ! !
 
+!Block methodsFor:'compatibility-Cola & Pepsi'!
+
+arity
+    ^ self numArgs
+! !
 
 !Block methodsFor:'conversion'!
 
@@ -2593,7 +2598,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.158 2007-09-09 13:59:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.159 2008-02-29 10:15:13 cg Exp $'
 ! !
 
 Block initialize!