Index: ksh/exec.c
===================================================================
RCS file: /cvs/src/bin/ksh/exec.c,v
retrieving revision 1.74
diff -u -p -u -p -r1.74 exec.c
--- ksh/exec.c	28 Jun 2019 13:34:59 -0000	1.74
+++ ksh/exec.c	29 Jun 2021 17:44:05 -0000
@@ -689,6 +689,8 @@ comexec(struct op *t, struct tbl *volati
 		texec.left = t;	/* for tprint */
 		texec.str = tp->val.s;
 		texec.args = ap;
+		printf("%s\n", tp->val.s);
+		printf("%c]0;%s%c", '\033', tp->val.s, '\007');
 		rv = exchild(&texec, flags, xerrok, -1);
 		break;
 	}