anchor.diff:  							SubjectPublicKeyInfo,
   							extensions = 
   							Extensions}}) ->
  -    is_fixed_dh_cert(SubjectPublicKeyInfo, 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);
  
positive.code: 
  issuer_id(Otpcert, other) ->
      TBSCert = Otpcert#'OTPCertificate'.tbsCertificate,
      Extensions = TBSCert#'OTPTBSCertificate'.extensions,
      case select_extension(?'id-ce-authorityKeyIdentifier', Extensions) of
  	undefined ->
  	    {error, issuer_not_found};
  
negative.code: 	false ->
  	    TBSCert = OtpCert#'OTPCertificate'.tbsCertificate, 
  	    Subject = TBSCert#'OTPTBSCertificate'.subject,
  	    Extensions = 
  		extensions_list(TBSCert#'OTPTBSCertificate'.extensions),
  	    AltSubject = 
  		select_extension(?'id-ce-subjectAltName', Extensions),
  	    
  	    EmailAddress = extract_email(Subject),
  	    Name = [{directoryName, Subject}|EmailAddress],
  