anchor.diff:  end;
   
   
  -procedure TMultiplexedProcessorImpl.RegisterProcessor( const serviceName : String; const processor : IProcessor);
  +procedure TMultiplexedProcessorImpl.RegisterProcessor( const serviceName : String; const processor : IProcessor; const asDefault : Boolean);
   begin
     FServiceProcessorMap.Add( serviceName, processor);
  +
  +  if asDefault then begin
  +    if FDefaultProcessor = nil
  +    then FDefaultProcessor := processor
  +    else raise TApplicationExceptionInternalError.Create('Only one default service allowed');
  +  end;
   end;
   
   
  
positive.code: 
  
  end.
  
  
negative.code: 
    private
      FServiceProcessorMap : TDictionary<String, IProcessor>;
      FDefaultProcessor : IProcessor;
  
      procedure Error( const oprot : IProtocol; const msg : TThriftMessage;
                       extype : TApplicationExceptionSpecializedClass; const etxt : string);
  