--- a/src/vmsproc.c	Mon Aug 13 08:49:44 2007 +0200
+++ b/src/vmsproc.c	Mon Aug 13 08:50:05 2007 +0200
@@ -398,8 +398,7 @@
     chdir (XSTRING_DATA (current_buffer->directory));
 }
 
-DEFUN ("call-process-internal", Fcall_process_internal,
-       Scall_process_internal, 1, MANY, 0 /*
+DEFUN ("call-process-internal", Fcall_process_internal, 1, MANY, 0, /*
 Call PROGRAM synchronously in a separate process.
 Program's input comes from file INFILE (nil means null device, `NLA0:').
 Insert output in BUFFER before point; t means current buffer;
@@ -408,10 +407,8 @@
 Remaining arguments are strings passed as command arguments to PROGRAM.
 This function waits for PROGRAM to terminate, unless BUFFER is 0;
 if you quit, the process is killed.
-*/ )
-  (nargs, args)
-     int nargs;
-     Lisp_Object *args;
+*/
+       (int nargs, Lisp_Object *args))
 {
   /* This function can GC */
   Lisp_Object display, buffer, path;
@@ -762,7 +759,7 @@
 void
 syms_of_vmsproc (void)
 {
-  defsubr (&Scall_process_internal);
+  DEFSUBR (Fcall_process_internal);
 }
 
 void