diff --git a/ptests/ptests.ml b/ptests/ptests.ml
index 143614b779bbd4a8fbebeffb616fc4909e255090..f1cf536e0817734588f70c2970b126e4122c8c41 100644
--- a/ptests/ptests.ml
+++ b/ptests/ptests.ml
@@ -708,7 +708,7 @@ let mk_symbolic_link =
         symlink ~unlink:false ~to_dir ~link_dst ~link
       else if String.(link_dst <> (Unix.readlink link)) then (* goes elsewhere *)
         symlink ~unlink:true ~to_dir ~link_dst ~link
-      else symlink_there link (* is already there *)
+      else symlink_there ~link (* is already there *)
     in
     match infos.st_kind with
     | Unix.S_LNK