1 files changed, 1 insertions, 2 deletions

diff --git a/src/data.c b/src/data.c
index c6cb1b43dd6..59fd921747a 100644
--- a/src/data.c
+++ b/src/data.c
@@ -103,8 +103,7 @@ wrong_type_argument (register Lisp_Object predicate, register Lisp_Object value)
 void
 pure_write_error (Lisp_Object obj)
 {
-  Fsignal (Qerror, Fcons (build_string ("Attempt to modify read-only object"),
-                          Fcons (obj, Qnil)));
+  xsignal2 (Qerror, build_string ("Attempt to modify read-only object"), obj);
 }
 
 void