1 files changed, 2 insertions, 2 deletions

diff --git a/src/process.c b/src/process.c
index b2a7f38317a..edf633e512e 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1804,7 +1804,7 @@ usage: (make-process &rest ARGS)  */)
       val = Vcoding_system_for_read;
     if (NILP (val))
       {
-        ptrdiff_t nargs2 = 3 + XFIXNUM (Flength (command));
+        ptrdiff_t nargs2 = 3 + list_length (command);
         Lisp_Object tem2;
         SAFE_ALLOCA_LISP (args2, nargs2);
         ptrdiff_t i = 0;
@@ -1834,7 +1834,7 @@ usage: (make-process &rest ARGS)  */)
       {
         if (EQ (coding_systems, Qt))
           {
-            ptrdiff_t nargs2 = 3 + XFIXNUM (Flength (command));
+            ptrdiff_t nargs2 = 3 + list_length (command);
             Lisp_Object tem2;
             SAFE_ALLOCA_LISP (args2, nargs2);
             ptrdiff_t i = 0;