emacs_program[0] = '\0';
if (! EQ (Vinvocation_directory, Qnil))
- lispstrcpy (emacs_program, Vinvocation_directory);
+ lispstpcpy (emacs_program, Vinvocation_directory);
strcat (emacs_program, SSDATA (Vinvocation_name));
/* The SM protocol says all callbacks are mandatory, so set up all