anchor.diff:    SysUtils,
     TypInfo,
     {$IFNDEF FPC}System.Generics.Collections{$ELSE}Generics.Collections{$ENDIF},
  -  UBlockChain, UNode, UBaseTypes,
  +  UBlockChain, UNode, UBaseTypes, UPCDataTypes,
     UAccounts,
     UEncoding,
     UEPasa,
  
positive.code:       AEPasa.AccountName := '@';
      end else begin
        if Assigned(ANode) then begin
          AEPasa.AccountName := ANode.GetMempoolAccount(AAccount).name.ToPrintable;
        end;
        if AEPasa.AccountName='' then begin
          ADecodeEPasaResult := der_AccountNameNotFound; // Will continue processing
  
negative.code:   LUnencryptedPayloadBytes, LPwd : TBytes;
    LDone : Boolean;
    i : Integer;
    LAccount : TAccount;
  begin
    LUnencryptedPayloadBytes := Nil;
    AEPasa.Clear;
  