1 files changed, 1 insertions, 0 deletions
diff --git a/toke.c b/toke.c
index a7ec6122e7..b8694a6262 100644
--- a/toke.c
+++ b/toke.c
@@ -13993,6 +13993,7 @@ Perl_coerce_qwlist_to_paren_list(pTHX_ OP *qwlist)
 	op_free(qwlist);
     }
     else {
+	start_force(PL_curforce);
 	NEXTVAL_NEXTTOKE.opval = qwlist;
 	force_next(THING);
     }