diff --git a/texk/web2c/ChangeLog b/texk/web2c/ChangeLog
index 486e2fe4dc..3664c9e6bb 100644
--- a/texk/web2c/ChangeLog
+++ b/texk/web2c/ChangeLog
@@ -1,3 +1,7 @@
+2023-09-04  Andreas Scherer  <https://ascherer.github.io>
+
+	* tangle.ch: Fix typo as in weave.web.
+
 2023-09-03  TANAKA Takuji  <ttk@t-lab.opal.ne.jp>
 
 	* {tangle,dvicopy,dvitype,gftodvi,gftopk,gftype,mft,
diff --git a/texk/web2c/tangle.ch b/texk/web2c/tangle.ch
index abd35170dd..644373e992 100644
--- a/texk/web2c/tangle.ch
+++ b/texk/web2c/tangle.ch
@@ -202,6 +202,12 @@ rewrite (Pascal_file, pascal_name);
       begin while not eoln(f) do vgetc(f);
 @z
 
+@x [31] Fix typo as in weave.web.
+procedure error; {prints '\..' and location of error message}
+@y
+procedure error; {prints `\..' and location of error message}
+@z
+
 @x [34] Fix `jump_out'.
 and jumps out of the program. This is the only non-local |goto| statement
 in \.{TANGLE}. It is used when no recovery from a particular error has