diff --git a/docs/protocols/alpha.rst b/docs/protocols/alpha.rst
index bf444cc5d42813a26b4d27fff4e8dd468ea8367c..8c6c5795a9be9636e558c4801909385c500eda00 100644
--- a/docs/protocols/alpha.rst
+++ b/docs/protocols/alpha.rst
@@ -56,6 +56,10 @@ Operation receipts
 Bug Fixes
 ---------
 
+- Fix the JSON field ``kind`` of the smart rollup preveal
+  encoding. This constant field was wrongfully set for the
+  ``metadata`` and ``request_dal_page`` case. (MR :gl:`!9307`)
+
 Minor Changes
 -------------
 
diff --git a/src/proto_alpha/lib_protocol/sc_rollup_PVM_sig.ml b/src/proto_alpha/lib_protocol/sc_rollup_PVM_sig.ml
index af7ae4dd848df78df8fe3424711123d42e1a7b3b..2dd23363ecd5402cd23162b27f509490684df35d 100644
--- a/src/proto_alpha/lib_protocol/sc_rollup_PVM_sig.ml
+++ b/src/proto_alpha/lib_protocol/sc_rollup_PVM_sig.ml
@@ -217,7 +217,7 @@ let reveal_encoding =
     case
       ~title:"Reveal_metadata"
       (Tag 1)
-      (obj1 (kind "reveal_kind"))
+      (obj1 (kind "reveal_metadata"))
       (function Reveal_metadata -> Some () | _ -> None)
       (fun () -> Reveal_metadata)
   in
@@ -225,7 +225,9 @@ let reveal_encoding =
     case
       ~title:"Request_dal_page"
       (Tag 2)
-      (obj2 (kind "reveal_kind") (req "page_id" Dal_slot_repr.Page.encoding))
+      (obj2
+         (kind "request_dal_page")
+         (req "page_id" Dal_slot_repr.Page.encoding))
       (function Request_dal_page s -> Some ((), s) | _ -> None)
       (fun ((), s) -> Request_dal_page s)
   in