diff --git a/src/main/match.c b/src/main/match.c
index e86b6afbe22..8b9cd798683 100644
--- a/src/main/match.c
+++ b/src/main/match.c
@@ -547,6 +547,7 @@ patchArgsByActuals(SEXP formals, SEXP supplied, SEXP cloenv)
 	        patchArgument(b, TAG(f), NULL, cloenv);
 
 	    SET_ARGUSED(b, 1);
+            SET_TAG(b, TAG(f));
 	    b = CDR(b);
 	    f = CDR(f);
 	    farg_i++;