2 files changed, 5 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml
index 00f515b5a6..b2671e5b60 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -80,6 +80,8 @@ let async_proofs_is_master () =
 let async_proofs_delegation_threshold = ref 0.03
 
 let debug = ref false
+let stm_debug = ref false
+
 let in_debugger = ref false
 let in_toplevel = ref false
 
diff --git a/lib/flags.mli b/lib/flags.mli
index 0b00ac13c2..7ce808041a 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -49,6 +49,9 @@ val debug : bool ref
 val in_debugger : bool ref
 val in_toplevel : bool ref
 
+(** Enable STM debugging *)
+val stm_debug : bool ref
+
 val profile : bool
 
 (* Legacy flags *)