anchor.diff:  	case ?PRIM_FILE_call(make_symlink, Handle, [Name, Alias]) of
   	    {error, enotsup} ->
   		{skipped, "Links not supported on this platform"};
  +	    {error, eperm} ->
  +		{win32,_} = os:type(),
  +		{skipped, "Windows user not privileged to create links"};
   	    ok ->
   		?line {ok, Info1} = 
   		    ?PRIM_FILE_call(read_file_info, Handle, [Name]),
  
positive.code:     ?line RootDir = ?config(priv_dir,Config),
      ?line NewDir = filename:join(RootDir, DirName),
      ?line ok = ?PRIM_FILE_call(make_dir, Handle, [NewDir]),
      ?line io:format("cd to ~s",[NewDir]),
      ?line ok = ?PRIM_FILE_call(set_cwd, Handle, [NewDir]),
  
      %% Create a file in the new current directory, and check that it
      %% really is created there
      ?line UncommonName = "uncommon.fil",
      ?line {ok,Fd} = ?PRIM_FILE:open(UncommonName, [read, write]),
      ?line ok = ?PRIM_FILE:close(Fd),
      ?line {ok,NewDirFiles} = ?PRIM_FILE_call(list_dir, Handle, ["."]),
      ?line true = lists:member(UncommonName,NewDirFiles),
  
      %% Delete the directory and return to the old current directory
      %% and check that the created file isn't there (too!)
      ?line expect({error, einval}, {error, eacces}, {error, eexist}, 
  		 ?PRIM_FILE_call(del_dir, Handle, [NewDir])),
      ?line ?PRIM_FILE_call(delete, Handle, [UncommonName]),
      ?line {ok,[]} = ?PRIM_FILE_call(list_dir, Handle, ["."]),
      ?line ok = ?PRIM_FILE_call(set_cwd, Handle, [Dir1]),
      ?line io:format("cd back to ~s",[Dir1]),
      ?line ok = ?PRIM_FILE_call(del_dir, Handle, [NewDir]),
      ?line {error, enoent} = ?PRIM_FILE_call(set_cwd, Handle, [NewDir]),
      ?line ok = ?PRIM_FILE_call(set_cwd, Handle, [Dir1]),
      ?line io:format("cd back to ~s",[Dir1]),
      ?line {ok,OldDirFiles} = ?PRIM_FILE_call(list_dir, Handle, ["."]),
      ?line false = lists:member(UncommonName,OldDirFiles),
  
      %% Try doing some bad things
      ?line {error, badarg} = 
  
negative.code: %%
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2000-2014. All Rights Reserved.
  %%
  %% The contents of this file are subject to the Erlang Public License,
  %% Version 1.1, (the "License"); you may not use this file except in
  