(Fcall_process): Check type of process cmd args earlier on.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 7035aed4f5..6a1cfbc2c4 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -246,6 +246,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
 	int must_encode = 0;
 
 	for (i = 4; i < nargs; i++)
+	  CHECK_STRING (args[i], i);
+
+	for (i = 4; i < nargs; i++)
 	  if (STRING_MULTIBYTE (args[i]))
 	    must_encode = 1;
 
@@ -401,8 +404,6 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     {
       register int i;
 
-      for (i = 4; i < nargs; i++) CHECK_STRING (args[i], i);
-
       if (! CODING_REQUIRE_ENCODING (&argument_coding))
 	{
 	  for (i = 4; i < nargs; i++)