diff --git a/Examples/test-suite/r/copy_struct_runme.R b/Examples/test-suite/r/copy_struct_runme.R
index d29ae10c8..f69245be4 100644
--- a/Examples/test-suite/r/copy_struct_runme.R
+++ b/Examples/test-suite/r/copy_struct_runme.R
@@ -42,6 +42,8 @@ unittest(d$u, 0)
 
 la <- new("A");
 la@ui <- 5
+# Removing the next line makes this fail in R 2.4
+la@str <- ""
 
 other = A()
 foo <- copyToC(la, other)