diff --git a/src/lib_protocol_environment/environment_V8.ml b/src/lib_protocol_environment/environment_V8.ml
index 6e6143a5990dd45a45eb65443df5e6ca5735cbe1..ad66c348098b38726e387beefb2555942066eac0 100644
--- a/src/lib_protocol_environment/environment_V8.ml
+++ b/src/lib_protocol_environment/environment_V8.ml
@@ -203,7 +203,13 @@ struct
   module Compare = Compare
   module Either = Either
   module Seq = Tezos_protocol_environment_structs.V8.Seq
-  module List = Tezos_error_monad.TzLwtreslib.List
+
+  module List = struct
+    include Tezos_error_monad.TzLwtreslib.List
+
+    let fold_right_es f l x = fold_left_es (fun acc x -> f x acc) x (rev l)
+  end
+
   module Array = Tezos_protocol_environment_structs.V8.Array
   module Char = Char
   module Bytes = Tezos_base.TzPervasives.Bytes