diff --git a/ChangeLog b/ChangeLog
index 2b477a636..05a044493 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-20  Bart Schaefer  <schaefer@zsh.org>
+
+	* 11473: Src/utils.c: Turn off xtrace while printing PS4.
+
 2000-05-19  Oliver Kiddle  <opk@zsh.org>
 
 	* 11471: Completion/User/_netscape, Completion/User/_urls: do
diff --git a/Src/utils.c b/Src/utils.c
index 170254fe3..116c8089e 100644
--- a/Src/utils.c
+++ b/Src/utils.c
@@ -798,11 +798,13 @@ printprompt4(void)
     if (!xtrerr)
 	xtrerr = stderr;
     if (prompt4) {
-	int l;
+	int l, t = opts[XTRACE];
 	char *s = dupstring(prompt4);
 
+	opts[XTRACE] = 0;
 	unmetafy(s, &l);
 	s = unmetafy(promptexpand(metafy(s, l, META_NOALLOC), 0, NULL, NULL), &l);
+	opts[XTRACE] = t;
 
 	fprintf(xtrerr, "%s", s);
     }