--- a/Block.st	Sun Dec 27 19:45:23 2009 +0000
+++ b/Block.st	Sun Dec 27 20:16:54 2009 +0000
@@ -1327,6 +1327,9 @@
     |a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15|
 
     (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
+        argArray isCollection ifTrue:[
+            ^ self valueWithArguments:argArray asArray
+        ].
         ^ self badArgumentArray:argArray
     ].
     (argArray size == nargs) ifFalse:[
@@ -1583,6 +1586,9 @@
     |numArgsProvided a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15|
 
     (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
+        argArray isCollection ifTrue:[
+            ^ self valueWithArguments:argArray asArray
+        ].
         ^ self badArgumentArray:argArray
     ].
     (argArray size >= nargs) ifFalse:[
@@ -1738,6 +1744,9 @@
     |numArgsProvided a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15|
 
     (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
+        argArray isCollection ifTrue:[
+            ^ self valueWithArguments:argArray asArray
+        ].
         ^ self badArgumentArray:argArray
     ].
     numArgsProvided := argArray size.
@@ -2890,14 +2899,15 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Block.st 10480 2009-12-02 21:30:55Z vranyj1 $'
+    ^ '$Id: Block.st 10489 2009-12-27 20:16:54Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Block.st,v 1.174 2009/10/23 12:27:46 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Block.st,v 1.175 2009/12/17 11:46:36 cg Exp §'
 ! !
 
 Block initialize!
 
 
 
+