1 files changed, 4 insertions, 1 deletions

diff --git a/src/coding.c b/src/coding.c
index cb6df79fca0..9ba96981c7f 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -8390,7 +8390,10 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...)  */)
             return Fcons (val, val);
           if (! NILP (Ffboundp (val)))
             {
-              val = safe_call1 (val, Flist (nargs, args));
+              /* We use call1 rather than safe_call1
+                 so as to get bug reports about functions called here
+                 which don't handle the current interface.  */
+              val = call1 (val, Flist (nargs, args));
               if (CONSP (val))
                 return val;
               if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val)))