From 0d8c3ab9bf375d91ce1502f96b09e1eb5227a183 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 12 Feb 2024 09:47:17 -0500
Subject: [PATCH] fix

---
 src/lwt/opentelemetry_lwt.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lwt/opentelemetry_lwt.ml b/src/lwt/opentelemetry_lwt.ml
index 887fe6f7..1d495f2d 100644
--- a/src/lwt/opentelemetry_lwt.ml
+++ b/src/lwt/opentelemetry_lwt.ml
@@ -28,7 +28,8 @@ module Trace = struct
       let () = finally (Ok ()) in
       Lwt.return rv
     with e ->
-      let () = finally (Error (Printexc.to_string e)) in
+      let bt = Printexc.get_raw_backtrace () in
+      let () = finally (Error (Printexc.to_string e, bt)) in
       Lwt.fail e
 end