diff --git a/ghc/lib/concurrent/Merge.lhs b/ghc/lib/concurrent/Merge.lhs
index 22165bdb51624bd8fb2c2bca3bc10beb8f391e12..395bd2ff05f78e31d0b829187d4e3e1e0ad47907 100644
--- a/ghc/lib/concurrent/Merge.lhs
+++ b/ghc/lib/concurrent/Merge.lhs
@@ -11,7 +11,7 @@ IO monad.
 \begin{code}
 module Merge
 	(
-	  merge
+	  mergeIO
 	, nmergeIO
 	) where