diff --git a/src/lib_protocol_environment/environment_V8.ml b/src/lib_protocol_environment/environment_V8.ml
index 5642c848880ec7804eef3064c8953d497ad32362..365627fd1409fee800f77fe9d44009b1357f6d31 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_error_monad.TzLwtreslib.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