sendMessageTo1:msg to:receiver withArguments:args

(receiver  canUnderstand:  msg)
    ifTrue: [^receiver msg: args]
    ifFalse:
    "Find a conversion method from receiver to newReceiver so that newReceiver can undertand msg."
        [

        (self  selectorsWithArgs: 1) asSortedCollection do: [:converter| (converter receiver canUnderstand: msg)
                                                                    ifTrue: [^converter receiver msg: args ]
                                                                    ].
        "we couldn't find a proper converter that would help us understand msg, so FAIL.'"
        self doesNotUnderstand: msg
        ]