diff --git a/compiler/tests-ocaml/win-unicode/mltest.ml b/compiler/tests-ocaml/win-unicode/mltest.ml
index 6d335a4c41..ac9dde448c 100644
--- a/compiler/tests-ocaml/win-unicode/mltest.ml
+++ b/compiler/tests-ocaml/win-unicode/mltest.ml
@@ -254,7 +254,7 @@ let test_symlink () =
   let dirln = "\xE4\xBD\xA0\xE5\xA5\xBD-dir-ln-s" (* "你好-dir-ln-s" *) in
   Unix.mkdir foodir 0o777;
   create_file foofile;
-  Unix.symlink ~to_dir:true foodir dirln;
+  Unix.symlink foodir dirln;
   Unix.symlink ~to_dir:false foofile fileln;
   let res =
     (Unix.stat fileln).Unix.st_kind = Unix.S_REG &&