--- a/src/plpl.c
+++ b/src/plpl.c
@@ -1412,7 +1412,8 @@
 					    pl_tuple_put, tuple);
 		    }
 		    else {
-			res = rb_block_call(pl_mPLtemp, args->id, 1, RARRAY_PTR(args->ary),
+			res = rb_block_call(pl_mPLtemp, args->id,
+					    1, &args->ary,
 					    pl_tuple_put, tuple);
 		    }
 		}