1 files changed, 1 insertions, 1 deletions

diff --git a/src/Control/Concurrent/Lifted/Instrument.hs b/src/Control/Concurrent/Lifted/Instrument.hs
index 91d4c0a4..680b264f 100644
--- a/src/Control/Concurrent/Lifted/Instrument.hs
+++ b/src/Control/Concurrent/Lifted/Instrument.hs
@@ -43,7 +43,7 @@ globals = unsafePerformIO $ newMVar $ GlobalState
 
 
 forkIO :: IO () -> IO ThreadId
-forkIO = GHC.forkIO
+forkIO = instrumented GHC.forkIO
 {-# INLINE forkIO #-}
 
 forkOS :: MonadBaseControl IO m => m () -> m ThreadId