diff --git a/src/core/CCFun.mli b/src/core/CCFun.mli
index 496aa1b4..94618a5b 100644
--- a/src/core/CCFun.mli
+++ b/src/core/CCFun.mli
@@ -40,7 +40,7 @@ val tap : ('a -> _) -> 'a -> 'a
     in a pipeline, for instance:
     {[CCArray.(1 -- 10)
       |> tap CCArray.shuffle
-      |> tap CCArray.sort Pervasives.compare
+      |> tap @@ CCArray.sort Pervasives.compare
     ]}
 *)