diff --git a/src/lib_crypto/crypto_box.ml b/src/lib_crypto/crypto_box.ml
index f3379eee7..79caac421 100644
--- a/src/lib_crypto/crypto_box.ml
+++ b/src/lib_crypto/crypto_box.ml
@@ -210,3 +210,6 @@ let nonce_encoding =
   Data_encoding.Fixed.bytes nonce_size
 let neuterize : secret_key -> public_key = Box.neuterize
 let equal : public_key -> public_key -> bool = Box.equal
+
+let pp_pk ppf pk =
+  MBytes.pp_hex ppf (public_key_to_bigarray pk)
diff --git a/src/lib_crypto/crypto_box.mli b/src/lib_crypto/crypto_box.mli
index 4dc912df3..a6cf448a8 100644
--- a/src/lib_crypto/crypto_box.mli
+++ b/src/lib_crypto/crypto_box.mli
@@ -95,3 +95,5 @@ val nonce_encoding : nonce Data_encoding.t
 
 val neuterize : secret_key -> public_key
 val equal : public_key -> public_key -> bool
+
+val pp_pk :Format.formatter -> public_key -> unit