diff --git a/libraries/base/GHC/IO.hs b/libraries/base/GHC/IO.hs
index 63b47ff73850cbf6503d66b626f29930e1442273..118ebeaeed747b25af1cb02085fb8589516c7e7b 100644
--- a/libraries/base/GHC/IO.hs
+++ b/libraries/base/GHC/IO.hs
@@ -335,7 +335,7 @@ onException io what = io `catchException` \e -> do _ <- what
 -- use @mask_ $ forkIO ...@.  This is particularly useful if you need
 -- to establish an exception handler in the forked thread before any
 -- asynchronous exceptions are received.  To create a a new thread in
--- an unmasked state use 'Control.Concurrent.forkIOUnmasked'.
+-- an unmasked state use 'Control.Concurrent.forkIOWithUnmask'.
 --
 mask  :: ((forall a. IO a -> IO a) -> IO b) -> IO b