1 files changed, 1 insertions, 2 deletions

diff --git a/src/coding.c b/src/coding.c
index 023dc95c35e..cb6df79fca0 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -7170,8 +7170,7 @@ function `define-coding-system'.  */)
     }
   if (!NILP (Fcoding_system_p (coding_system)))
     return coding_system;
-  while (1)
-    Fsignal (Qcoding_system_error, Fcons (coding_system, Qnil));
+  xsignal1 (Qcoding_system_error, coding_system);
 }