Corrected self signed cert to use the right number of bytes from memory

private/self-signed-cert.rkt

@@ -212,8 +212,8 @@
 (version-define 1
    (BIO_get_mem_data (λ (bio-ptr)
                        (let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0)))
-                         (displayln r)
+                         (let ((r* (subbytes (cadr r) 0 (car r))))
-                         (cadr r))))
+                           r*))))
    (ASN1_OCTET_STRING_new (λ ()
                             (ASN1_STRING_type_new V_ASN1_OCTET_STRING)))
    )