From eb4abf2966e59b88a60a726fb62cbe844bcb4b26 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sat, 17 Jan 2026 21:06:48 -0500
Subject: [PATCH] compat fix

---
 src/debug/track_spans.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/debug/track_spans.ml b/src/debug/track_spans.ml
index a011d3c..7f6c84d 100644
--- a/src/debug/track_spans.ml
+++ b/src/debug/track_spans.ml
@@ -98,7 +98,11 @@ open struct
           self.tbl_open_spans Str_map.empty
       in
       let unclosed_spans =
-        { num; by_name = Str_map.to_list names_with_count }
+        {
+          num;
+          by_name =
+            Str_map.fold (fun name id l -> (name, id) :: l) names_with_count [];
+        }
       in
       emit self unclosed_spans
     )