diff --git a/src/proto_alpha/lib_protocol/src/apply.ml b/src/proto_alpha/lib_protocol/src/apply.ml
index 56e29b173..6056190e7 100644
--- a/src/proto_alpha/lib_protocol/src/apply.ml
+++ b/src/proto_alpha/lib_protocol/src/apply.ml
@@ -667,7 +667,7 @@ let begin_application ctxt block_header pred_timestamp =
   let ctxt = Fitness.increase ctxt in
   return (ctxt, delegate_pk, deposit)
 
-let finalize_application ctxt protocol_data delegate deposit =
+let finalize_application ctxt protocol_data delegate =
   let block_reward = Constants.block_reward ctxt in
   add_rewards ctxt block_reward >>=? fun ctxt ->
   (* end of level (from this point nothing should fail) *)
@@ -680,7 +680,7 @@ let finalize_application ctxt protocol_data delegate deposit =
     | None -> return ctxt
     | Some nonce_hash ->
         Nonce.record_hash ctxt
-          { nonce_hash ; delegate ; deposit ; rewards ; fees }
+          { nonce_hash ; delegate ; deposit = Tez.zero ; rewards ; fees }
   end >>=? fun ctxt ->
   (* end of cycle *)
   may_snapshot_roll ctxt >>=? fun ctxt ->
diff --git a/src/proto_alpha/lib_protocol/src/main.ml b/src/proto_alpha/lib_protocol/src/main.ml
index 3f3318a37..50bdda574 100644
--- a/src/proto_alpha/lib_protocol/src/main.ml
+++ b/src/proto_alpha/lib_protocol/src/main.ml
@@ -120,7 +120,7 @@ let apply_operation ({ mode ; ctxt ; op_count ; _ } as data) operation =
   let op_count = op_count + 1 in
   return { data with ctxt ; op_count }
 
-let finalize_block { mode ; ctxt ; op_count ; deposit } =
+let finalize_block { mode ; ctxt ; op_count ; deposit = _ } =
   match mode with
   | Partial_construction _ ->
       let ctxt = Alpha_context.finalize ctxt in
@@ -128,8 +128,7 @@ let finalize_block { mode ; ctxt ; op_count ; deposit } =
   | Application
       { baker ;  block_header = { protocol_data ; _ } }
   | Full_construction { protocol_data ; baker ; _ } ->
-      Apply.finalize_application
-        ctxt protocol_data baker deposit  >>=? fun ctxt ->
+      Apply.finalize_application ctxt protocol_data baker >>=? fun ctxt ->
       let { level ; _ } : Alpha_context.Level.t =
         Alpha_context. Level.current ctxt in
       let priority = protocol_data.priority in