anchor.diff:  
   procedure TSynapseTCPServerThread.Execute;
   begin
  -  SetName;
  +  NameThreadForDebugging('Synapse Worker ' + ID,$FFFFFFFF);
     BeforeExecute;
     try
       while not Terminated do
  
positive.code:   TSynapseTCPServerThread = class(TThread)
    private
      FOwner:TSynapseTCPServer;
      procedure SetName;
    protected
  
      FPeer:TSynapseTCPServerPeer;
      ID:string;
      procedure BeforeExecute;virtual;
  
negative.code:   *)
  end;
  
  end.
  