anchor.diff:    Context := TClientContext.Create(Self, ASettings);
     Handler := FHandlers.InvokeHandler^.Handler;
     Next := FHandlers.InvokeHandler^.Next;
  -  Result := Handler(FullName, Args, Context, Next);
  -  FreeAndNil(Context);
  +  try
  +    Result := Handler(FullName, Args, Context, Next);
  +  finally
  +    FreeAndNil(Context);
  +  end;
   end;
   
   // Asynchronous invoke
  
positive.code: end;
  
  {$IFDEF SUPPORTS_GENERICS}
  function THproseClient.VariantTo<T>(const AValue: Variant): T;
  begin
  end;
  
  // Synchronous invoke
  
negative.code:     function GetFullName(const AName: string): string;
      procedure SetURI(const AValue: string);
  {$IFDEF SUPPORTS_GENERICS}
      procedure VarToT(Info: PTypeInfo; const Src: Variant; out Dst);
      function VarTo<T>(const AValue: Variant): T;
  {$ENDIF}
    protected
      procedure InitURI(const AValue: string); virtual;
  