From 12978d424da41adc3c04cacea98cdba48eeebbd1 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 30 Aug 2024 13:29:32 -0400
Subject: [PATCH] fix

---
 src/core/task_local_storage.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/task_local_storage.ml b/src/core/task_local_storage.ml
index 12978926..4f5e5004 100644
--- a/src/core/task_local_storage.ml
+++ b/src/core/task_local_storage.ml
@@ -21,7 +21,7 @@ let get_opt k =
 
 let[@inline] get k ~default =
   match get_current_fiber () with
-  | None -> None
+  | None -> default
   | Some fiber -> PF.FLS.get fiber ~default k
 
 let[@inline] set k v : unit =