diff --git a/lib/modules/Standards.pmod/testsuite.in b/lib/modules/Standards.pmod/testsuite.in
index fafd1856feb0e89f632637ea2aeea7eb788c612c..a0eb331f7fd75627e8d02fabf808b49281be1b87 100644
--- a/lib/modules/Standards.pmod/testsuite.in
+++ b/lib/modules/Standards.pmod/testsuite.in
@@ -230,13 +230,13 @@ Gx/KXQ/BUpQqEZnae88MNhPVNdwQGVnqlMEAv3WP2fr9dgTbYruQagPZRjXZ+Hxb
 -----END CERTIFICATE-----";
   object o = Standards.PEM.Message(pem);
   object t = Standards.X509.decode_certificate(o->body);
-  return ([ "der" : stringp(t->der), "version" : t->version, "serial":t->serial->digits(16), "algorithm":sprintf("%O",t->algorithm[0]), "issuer":t->issuer[2][0][1]->value, "not_after":t->not_after, "not_before":t->not_before, "subject":t->subject[2][0][1]->value, "issuer_id":t->extensions])
+  return ([ "der" : stringp(t->der), "version" : t->version, "serial":t->serial->digits(16), "algorithm":sprintf("%O",t->algorithm[0]), "issuer":t->issuer[2][0][1]->value, "not_after":t->not_after, "not_before":t->not_before, "subject":t->subject[2][0][1]->value, "extensions":t->extensions])
 ]],[[
 ([ /* 9 elements */
   "algorithm": "Standards.ASN1.Types.Identifier(1.2.840.113549.1.1.5)",
   "der": 1,
   "issuer": "Class 1 Public Primary Certification Authority",
-  "issuer_id": 0,
+  "extensions": 0,
   "not_after": ([ /* 6 elements */
       "hour": 23,
       "mday": 2,
@@ -258,5 +258,27 @@ Gx/KXQ/BUpQqEZnae88MNhPVNdwQGVnqlMEAv3WP2fr9dgTbYruQagPZRjXZ+Hxb
   "version": 1
 ])
 ]])
+test_any_equal([[
+  object rsa = Crypto.RSA();
+  rsa->set_public_key(Gmp.mpz(10091719133288484609038014264477683817475840711323254929480453433408142690559279434827127011542800608968367637399409601909209406663819557863705925738798431), 65537);
+
+  array attrs = ({
+    ([ "organizationName" : Standards.ASN1.Types.PrintableString("Test") ]),
+    ([ "commonName" : Standards.ASN1.Types.PrintableString("*") ]),
+  });
+
+  string c = Standards.X509.make_selfsigned_rsa_certificate(rsa, 3600*24*365, attrs, 0, 5);
+
+  object t = Standards.X509.decode_certificate(c);
+  return ([ "version" : t->version, "serial":t->serial->digits(16), "algorithm":sprintf("%O",t->algorithm[0]), "issuer":t->issuer[0][0][1]->value, "subject":t->subject[0][0][1]->value, "extensions":t->extensions, "public_key":(int)t->public_key->rsa->public_key_equal(rsa) ])
+]],[[ ([
+  "version" : 1,
+  "serial" : "5",
+  "algorithm": "Standards.ASN1.Types.Identifier(1.2.840.113549.1.1.5)",
+  "issuer" : "Test",
+  "subject" : "Test",
+  "extensions" : 0,
+  "public_key": 1,
+]) ]])
 
 END_MARKER