diff --git a/hs-opentelemetry-api.cabal b/hs-opentelemetry-api.cabal
--- a/hs-opentelemetry-api.cabal
+++ b/hs-opentelemetry-api.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:               hs-opentelemetry-api
-version:            0.0.3.7
+version:            0.0.3.8
 synopsis:           OpenTelemetry API for use by libraries for direct instrumentation or wrapper packages.
 description:        Please see the README on GitHub at <https://github.com/iand675/hs-opentelemetry/tree/main/api#readme>
 category:           OpenTelemetry, Telemetry, Monitoring, Observability, Metrics
diff --git a/src/OpenTelemetry/Context/ThreadLocal.hs b/src/OpenTelemetry/Context/ThreadLocal.hs
--- a/src/OpenTelemetry/Context/ThreadLocal.hs
+++ b/src/OpenTelemetry/Context/ThreadLocal.hs
@@ -155,7 +155,7 @@
 -}
 adjustContext :: MonadIO m => (Context -> Context) -> m ()
 adjustContext f = update threadContextMap $ \mctx ->
-  (f $ fromMaybe empty mctx, ())
+  (pure $ f $ fromMaybe empty mctx, ())
 
 
 {- | Alter the context
@@ -166,5 +166,5 @@
  @since 0.0.1.0
 -}
 adjustContextOnThread :: MonadIO m => ThreadId -> (Context -> Context) -> m ()
-adjustContextOnThread tid = updateOnThread threadContextMap tid $ \mctx ->
-  (f $ fromMaybe empty mctx, ())
+adjustContextOnThread tid f = updateOnThread threadContextMap tid $ \mctx ->
+  (pure $ f $ fromMaybe empty mctx, ())