1 files changed, 1 insertions, 0 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 2740779f513..72b9c1dc370 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -822,6 +822,7 @@ call_process (ptrdiff_t nargs, Lisp_Object *args, int filefd,
               ptrdiff_t count1 = SPECPDL_INDEX ();
 
               XSETBUFFER (curbuf, current_buffer);
+              prepare_to_modify_buffer (PT, PT, NULL);
               /* We cannot allow after-change-functions be run
                  during decoding, because that might modify the
                  buffer, while we rely on process_coding.produced to