diff --git a/src/proto_alpha/lib_protocol/src/storage_functors.ml b/src/proto_alpha/lib_protocol/src/storage_functors.ml
index 4c41e97db..58285de31 100644
--- a/src/proto_alpha/lib_protocol/src/storage_functors.ml
+++ b/src/proto_alpha/lib_protocol/src/storage_functors.ml
@@ -264,7 +264,6 @@ module Make_indexed_data_snapshotable_storage (C : Raw_context.T)
 
   let data_name = ["current"]
   let snapshot_name = ["snapshot"]
-  let snapshot_name_length = List.length snapshot_name
 
   module C_data = Make_subcontext(C)(struct let name = data_name end)
   module C_snapshot = Make_subcontext(C)(struct let name = snapshot_name end)