GetObject simplification/optimization (using R_sysfunction insread of R_syscall).