diff --git a/texk/web2c/ctiedir/ctie-k.ch b/texk/web2c/ctiedir/ctie-k.ch
index 55539f2fd0..3bb1f763e6 100644
--- a/texk/web2c/ctiedir/ctie-k.ch
+++ b/texk/web2c/ctiedir/ctie-k.ch
@@ -571,10 +571,10 @@ e_of_ch_preamble (file_index i)
 if (out_mode==post) /* last line has been changed */
     fprintf(out_file, "@@z\n");
 @y
+if (out_mode==pre) /* last line has been deleted */
+    fprintf(out_file, "@@y\n"), out_mode=post;
 if (out_mode==post) /* last line has been changed */
     fprintf(out_file, "@@z\n");
-else if (out_mode==pre) /* last line has been deleted */
-    fprintf(out_file, "@@y\n@@z\n");
 @z
 
 @x l.1106
diff --git a/texk/web2c/tiedir/tie-w2c.ch b/texk/web2c/tiedir/tie-w2c.ch
index f4e41e7a26..61b4e90416 100644
--- a/texk/web2c/tiedir/tie-w2c.ch
+++ b/texk/web2c/tiedir/tie-w2c.ch
@@ -418,13 +418,11 @@ if (out_mode==post) { /* last line has been changed */
    new_line(out_file);
    }
 @y
-if (out_mode==post) { /* last line has been changed */
-   fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'z'),out_file);
-   new_line(out_file);
-   }
-else if (out_mode==pre) { /* last line has been deleted */
+if (out_mode==pre) { /* last line has been deleted */
    fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'y'),out_file);
-   new_line(out_file);
+   new_line(out_file); out_mode=post;
+   }
+if (out_mode==post) { /* last line has been changed */
    fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'z'),out_file);
    new_line(out_file);
    }