From df13234fe1e2b6bcf6d362357c8959e1e71d4b99 Mon Sep 17 00:00:00 2001
From: Calascibetta Romain <romain.calascibetta@gmail.com>
Date: Tue, 7 Jan 2025 18:35:21 +0100
Subject: [PATCH] Fix Cachet_lwt.next

---
 lib-lwt/cachet_lwt.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib-lwt/cachet_lwt.ml b/lib-lwt/cachet_lwt.ml
index 07f43d8..9b6c1b4 100644
--- a/lib-lwt/cachet_lwt.ml
+++ b/lib-lwt/cachet_lwt.ml
@@ -94,4 +94,4 @@ let get_int64_be t logical_address =
 
 let next t slice =
   let pagesize = Cachet.pagesize t in
-  load t (slice.Cachet.offset + (1 lsl pagesize))
+  load t (slice.Cachet.offset + pagesize)