--- a/MethodFinder.st	Sat Feb 07 14:20:58 2009 +0100
+++ b/MethodFinder.st	Sat Feb 07 14:21:45 2009 +0100
@@ -1502,7 +1502,7 @@
         ifFalse:[  
             expectedAnswer isArray ifTrue:[
                 (val isCollection and:[val isString not]) ifTrue:[
-                    val asArray = expectedAnswer ifTrue:[^ true].
+                    ([val asArray = expectedAnswer] ifError:[false]) ifTrue:[^ true].
                 ].
             ].
             ([ (expectedAnswer = val) ] ifError:[ false]) ifFalse: [^ false]
@@ -1576,5 +1576,5 @@
 !MethodFinder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.18 2009-02-07 13:20:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.19 2009-02-07 13:21:45 cg Exp $'
 ! !