--- a/Block.st	Mon Apr 15 15:45:33 2013 +0200
+++ b/Block.st	Mon Apr 15 16:36:28 2013 +0200
@@ -490,6 +490,12 @@
 
 !Block methodsFor:'Compatibility-Squeak'!
 
+cull: firstArg cull: secondArg
+    nargs >= 2 ifTrue:[^ self value:firstArg value: secondArg].
+    nargs = 1 ifTrue:[^ self value:firstArg].
+    ^ self value
+!
+
 ifError:handlerBlock
     "same as onError: - for squeak compatibility.
      Notice, that the handlerBlock may take 0,1 or 2 args.
@@ -3085,11 +3091,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.191 2013-02-24 19:24:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.192 2013-04-15 14:36:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.191 2013-02-24 19:24:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.192 2013-04-15 14:36:28 cg Exp $'
 ! !