diff --git a/src/proto_alpha/lib_delegate/baking_actions.ml b/src/proto_alpha/lib_delegate/baking_actions.ml
index fcca27f9629fdcd5213067f3aac9f6512b30913e..dafae02d3956fd7d02ad6dacb26cbba05517f361 100644
--- a/src/proto_alpha/lib_delegate/baking_actions.ml
+++ b/src/proto_alpha/lib_delegate/baking_actions.ml
@@ -956,8 +956,10 @@ let notice_delegates_without_slots all_delegates delegate_slots level =
       (fun {Baking_state.public_key_hash; _} ->
         not
         @@ List.exists
-             (fun {consensus_key_and_delegate = _, pkh_with_rights; _} ->
-               public_key_hash = pkh_with_rights)
+             (fun {
+                    consensus_key_and_delegate = consensus_key, _pkh_with_rights;
+                    _;
+                  } -> public_key_hash = consensus_key.public_key_hash)
              (Baking_state.Delegate_slots.own_delegates delegate_slots))
       all_delegates
   in