--- a/Block.st	Mon Oct 03 12:44:41 2016 +0100
+++ b/Block.st	Sun Oct 09 21:28:18 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -681,7 +679,6 @@
 ! !
 
 
-
 !Block methodsFor:'accessing'!
 
 home
@@ -1562,11 +1559,10 @@
 
     argArray := argArrayIn.
     (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
-        argArray isCollection ifTrue:[
-            argArray := argArray asArray
-        ] ifFalse:[
+        argArray isCollection ifFalse:[
             ^ self badArgumentArray:argArray
         ].
+        argArray := argArray asArray.
     ].
     (argArray size ~~ nargs) ifTrue:[
         ^ self wrongNumberOfArguments:argArray size
@@ -1828,11 +1824,10 @@
 
     argArray := argArrayIn.
     (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
-        argArray isCollection ifTrue:[
-            argArray := argArray asArray
-        ] ifFalse:[
+        argArray isCollection ifFalse:[
             ^ self badArgumentArray:argArray
         ].
+        argArray := argArray asArray.
     ].
 
     (argArray size < nargs) ifTrue:[
@@ -1995,11 +1990,10 @@
 
     argArray := argArrayIn.
     (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
-        argArray isCollection ifTrue:[
-            argArray := argArray asArray
-        ] ifFalse:[
+        argArray isCollection ifFalse:[
             ^ self badArgumentArray:argArray
         ].
+        argArray := argArray asArray.
     ].
     numArgsProvided := argArray size.
 %{