1 files changed, 6 insertions, 0 deletions
diff --git a/src/filelock.c b/src/filelock.c
index b671533161f..dcf3c658ce0 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -545,6 +545,12 @@ lock_file (fn)
   register char *lfname, *locker;
   lock_info_type lock_info;
 
+  /* Don't do locking while dumping Emacs.
+     Uncompressing wtmp files uses call-process, which does not work
+     in an uninitialized Emacs.  */
+  if (! NILP (Vpurify_flag))
+    return;
+
   orig_fn = fn;
   fn = Fexpand_file_name (fn, Qnil);
   encoded_fn = ENCODE_FILE (fn);