*** quipu/dsa.c.bak	Sun Apr 11 15:16:36 1993
--- quipu/dsa.c	Sat May  1 09:32:32 1993
***************
*** 233,238 ****
--- 233,252 ----
      LLOG (log_dsap, LLOG_NOTICE, ("Process size = %d bytes", proc_size));
  #endif
  
+     {
+ 	char    filebuf[BUFSIZ];
+ 	FILE   *fp;
+ 
+ 	(void) sprintf (filebuf, "%sSTARTINGPID", treedir);
+ 	if (fp = fopen (filebuf, "w")) {
+ 	    (void) fprintf (fp, "%d\n", getpid ());
+ 	    (void) fclose (fp);
+ 	}
+ 	else
+ 	    LLOG (log_dsap,LLOG_EXCEPTIONS,("Can't open STARTINGPID file %s",
+ 		filebuf));
+     }
+ 
      if(dsa_init() == NOTOK)
      {
  	fatal(-14,"Couldn't initialise the DSA!!");
***************
*** 782,788 ****
  #endif
  	    	}
  
! 		sleep (secs);	/* give connections time to clear */
  		(void) execv (isodefile(sargv[0], 1),sargv);
  		exit (-19);
  	}
--- 796,802 ----
  #endif
  	    	}
  
! 		/* sleep (secs);	/* give connections time to clear */
  		(void) execv (isodefile(sargv[0], 1),sargv);
  		exit (-19);
  	}