shallow copy recursively for x[[i]]<- when 'x' is a list and length(i)
> 1; this was also broken in R trunk.