anchor.diff:  
   issuer_id(Otpcert, other) ->
       TBSCert = Otpcert#'OTPCertificate'.tbsCertificate,
  -    Extensions = TBSCert#'OTPTBSCertificate'.extensions,
  +    Extensions = extensions_list(TBSCert#'OTPTBSCertificate'.extensions),
       case select_extension(?'id-ce-authorityKeyIdentifier', Extensions) of
   	undefined ->
   	    {error, issuer_not_found};
  
positive.code: 	false ->
  	    TBSCert = OtpCert#'OTPCertificate'.tbsCertificate, 
  	    Subject = TBSCert#'OTPTBSCertificate'.subject,
  	    AltSubject = 
  		select_extension(?'id-ce-subjectAltName', 
  				 TBSCert#'OTPTBSCertificate'.extensions),
  	    
  	    EmailAddress = extract_email(Subject),
  	    Name = [{directoryName, Subject}|EmailAddress],
  
negative.code: 							SubjectPublicKeyInfo,
  							extensions = 
  							Extensions}}) ->
      is_fixed_dh_cert(SubjectPublicKeyInfo, extensions_list(Extensions)). 
  
  %%--------------------------------------------------------------------
  %%% Internal functions
  %%--------------------------------------------------------------------
  
  extensions_list(asn1_NOVALUE) ->
      [];
  extensions_list(Extensions) ->
      Extensions.
  
  not_valid(Error, true, _) ->
      throw(Error);
  