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)