diff --git a/docs/api/rpc_proposal.rst b/docs/api/rpc_proposal.rst
index 07b07a725..a633fa419 100644
--- a/docs/api/rpc_proposal.rst
+++ b/docs/api/rpc_proposal.rst
@@ -7633,8 +7633,8 @@ Protocol Alpha
     <pre>
     { "type_map":
         [ { "location": $micheline.location,
-            "stackBefore": [ $micheline.michelson_v1.expression ... ],
-            "stackAfter": [ $micheline.michelson_v1.expression ... ] } ... ],
+            "stack_before": [ $micheline.michelson_v1.expression ... ],
+            "stack_after": [ $micheline.michelson_v1.expression ... ] } ... ],
       "gas": $bignum || "unaccounted" }
     $bignum:
       /* Big number
diff --git a/src/proto_alpha/lib_protocol/src/script_tc_errors_registration.ml b/src/proto_alpha/lib_protocol/src/script_tc_errors_registration.ml
index 43f874c98..b6285019c 100644
--- a/src/proto_alpha/lib_protocol/src/script_tc_errors_registration.ml
+++ b/src/proto_alpha/lib_protocol/src/script_tc_errors_registration.ml
@@ -37,8 +37,8 @@ let type_map_enc =
        (fun (loc, bef, aft) -> (loc, (bef, aft)))
        (obj3
           (req "location" Script.location_encoding)
-          (req "stackBefore" stack_enc)
-          (req "stackAfter" stack_enc)))
+          (req "stack_before" stack_enc)
+          (req "stack_after" stack_enc)))
 
 let stack_ty_enc =
   let open Data_encoding in