first version of [<-.xtsdfn() function