anchor.diff:    signal(SIGTERM, HandleSignals);
   end;
   
  -class procedure TPosixDaemon.KillParent;
  +class procedure TPosixDaemon.KillParent(APID: pid_t);
   begin
     // If the PID returned from fork() is valid, the parent process
     // must terminate gracefully
  -  if FProcessID > 0 then
  +  if APID > 0 then
       Halt(TPosixDaemon.EXIT_SUCCESS);
  +end;
  +
  +class procedure TPosixDaemon.LogClose;
  +begin
  +  closelog;
   end;
   
   class procedure TPosixDaemon.LogError(const AMessage: string);
  
positive.code:     /// <remarks>
      ///   Do not create (and run) any thread before forking a process
      /// </remarks>
      class procedure ForkProcess; static;
  
      /// <summary>
      ///   Close all opened file descriptors
  
negative.code:     class procedure Run(AInterval: Integer); static;
  
      /// <summary>
      ///   Stop the daemon
      /// </summary>
      class procedure Stop; static;
  
      /// <summary>
      ///   Open the log connection
      /// </summary>
      class procedure LogOpen; static;
  