diff --git a/private/self-signed-cert.rkt b/private/self-signed-cert.rkt index e261b74..f22ff2c 100644 --- a/private/self-signed-cert.rkt +++ b/private/self-signed-cert.rkt @@ -213,7 +213,10 @@ (BIO_get_mem_data (λ (bio-ptr) (let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0))) (let ((r* (subbytes (cadr r) 0 (car r)))) - r*)))) + (write r*)(newline) + (let ((r** (bytes->string/utf-8 r*))) + (write r**)(newline) + r**))))) (ASN1_OCTET_STRING_new (λ () (ASN1_STRING_type_new V_ASN1_OCTET_STRING))) )