Diffs between last version checked in and current workfile(s):

Index: src/ops/core.ops
===================================================================
--- src/ops/core.ops	(revision 17060)
+++ src/ops/core.ops	(working copy)
@@ -538,7 +538,9 @@
     interp->current_args = NULL;
     interp->current_params = NULL;
 
+    Parrot_block_DOD(interp);
     parrot_pass_args(interp, caller_ctx, ctx, src_indexes, dst_indexes, PARROT_PASS_PARAMS);
+    Parrot_unblock_DOD(interp);
     if (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {
         PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;
         --ctx->recursion_depth;

End of diffs.