diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
index 652761e3bb2592f41724c0235a45af0de18313e7..87e923d5983d0b3e107aedf0d90397fe9ea8ca68 100644
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
@@ -27,8 +27,8 @@ strVec <- rffi.getStringNA();
 stopifnot(anyNA(strVec))
 
 x <- list(1)
-attribute(x, 'myattr') <- 'hello';
-attrs <- ATTRIB(x)
+attr(x, 'myattr') <- 'hello';
+attrs <- rffi.ATTRIB(x)
 stopifnot(attrs[[1]] == 'hello')
 
 # loess invokes loess_raw native function passing in string value as argument and that is what we test here.