diff --git a/Examples/test-suite/r/li_boost_shared_ptr_runme.R b/Examples/test-suite/r/li_boost_shared_ptr_runme.R
index 6df8984fc..059adf1da 100644
--- a/Examples/test-suite/r/li_boost_shared_ptr_runme.R
+++ b/Examples/test-suite/r/li_boost_shared_ptr_runme.R
@@ -161,13 +161,13 @@ testSuite <- function() {
   }
 
   # pass by pointer reference
-  if (FALSE) {
+  {
     k = Klass("me oh my");
     kret = pointerreftest(k); # -> class not defined _p_p_Space__Klass
     val = kret$getValue();
     unittest("me oh my pointerreftest", val);
     testSuite_verifyCount(1, k);
-    testSuite_verifyCount(1, kret);
+    # testSuite_verifyCount(1, kret); # -> use_count not defined on _p_Space__Klass
   }
 
   # null tests