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