anchor.diff:  var
     Context: TObject;
     InStream, OutStream: TStream;
  -begin
  +  FullName: string;
  +begin
  +  if FNameSpace <> '' then
  +    FullName := FNameSpace + '_' + Name
  +  else
  +    FullName := Name;
     Result := Default(T);
  -  DoInput(TypeInfo(T), SendAndReceive(DoOutput(Name, Args, Simple)), Result);
  +  DoInput(TypeInfo(T), SendAndReceive(DoOutput(FullName, Args, Simple)), Result);
   end;
   
   function THproseClient.Invoke<T>(const Name: string; var Args: TVariants;
  
positive.code:     function Blocking: Boolean; virtual;
    public
      constructor Create(AOwner: TComponent); override;
      class function New(const AUrl: string): Variant;
      function UseService(const AUri: string = ''): Variant; virtual;
      procedure AddFilter(const Filter: IHproseFilter);
      function RemoveFilter(const Filter: IHproseFilter): Boolean;
      // Synchronous invoke
  
negative.code:   published
      property Uri: string read FUri;
      property Filter: IHproseFilter read GetFilter write SetFilter;
      property NameSpace: string read FNameSpace write FNameSpace;
      // This event OnError only for asynchronous invoke
      property OnError: THproseErrorEvent read FErrorEvent write FErrorEvent;
    end;
  