anchor.diff:  	    true ->
   		ok
   	end,
  -	make_very_icky_dir(Mod),
  - 	{ok, L0} = Mod:list_dir_all("."),
  -	L1 = lists:sort(L0),
  -	L1 = lists:sort(convlist(list(very_icky_dir()))),
  +	VeryIckyDir = make_very_icky_dir(Mod, "very_icky_dir"),
  +	Expected = lists:sort(convlist(list(VeryIckyDir))),
  +	{ok, Actual} = Mod:list_dir_all("."),
  +	Expected = lists:sort(Actual),
   	{ok,D2} = Mod:get_cwd(),
   	true = is_list(D2),
  -	[ true = ((is_list(El) or is_binary(El)))  || El <- L1],
  -	Syms = [ {S,conv(Targ),list_to_binary(get_data(Targ,very_icky_dir()))}
  - 		 || {T,S,Targ} <- very_icky_dir(), T =:= symlink ],
  +	[ true = ((is_list(El) or is_binary(El)))  || El <- Expected],
  +	Syms = [{S,conv(Targ),list_to_binary(get_data(Targ, VeryIckyDir))}
  +		|| {symlink,S,Targ} <- VeryIckyDir],
   	[ {ok, Cont} = Mod:read_file(SymL) || {SymL,_,Cont} <- Syms ],
   	[ {ok, Targ} = fixlink(Mod:read_link_all(SymL)) ||
   	    {SymL,Targ,_} <- Syms ],
  -	chk_cre_dir(Mod,[{directory,[1088,1079,1091]++"_dir",very_icky_dir()}]),
  +
   	{ok,BeginAt} = Mod:get_cwd(),
  +	OtherDir = [1088,1079,1091] ++ "_dir",
   	true = is_list(BeginAt),
  +	make_very_icky_dir(Mod, OtherDir),
           {error,enoent} = Mod:set_cwd("åä_dir"),
  -	ok = Mod:set_cwd([1088,1079,1091]++"_dir"),
   	{ok, NowAt} = Mod:get_cwd(),
   	true = is_list(NowAt),
   	true = BeginAt =/= NowAt,
   	ok = Mod:set_cwd(".."),
   	{ok,BeginAt} = Mod:get_cwd(),
  -	rm_r2(Mod,[1088,1079,1091]++"_dir"),
  -
  -	case has_links() of
  -	    true ->
  -		ok = Mod:make_link("fil1","nisse"++[1088,1079,1091]),
  +	rm_r2(Mod, OtherDir),
  +
  +	case Mod:make_link("fil1","nisse"++[1088,1079,1091]) of
  +	    ok ->
   		{ok, <<"fil1">>} =
   		    Mod:read_file("nisse"++[1088,1079,1091]),
   		{ok, #file_info{type = regular}} =
  
positive.code: 	%% 		ok
  	%% 	end,
  	[ true = ((is_list(El) or (UniMode and is_binary(El))))  || El <- L1],
  	Syms = [ {S,conv(Targ),list_to_binary(get_data(Targ,icky_dir()))}
   		 || {T,S,Targ} <- icky_dir(), T =:= symlink ],
  	[ {ok, Cont} = Mod:read_file(SymL) || {SymL,_,Cont} <- Syms ],
   	[ {ok, Targ} = fixlink(Mod:read_link_all(SymL)) ||
  	    {SymL,Targ,_} <- Syms ],
          chk_cre_dir(Mod,[{directory,"åäö_dir",icky_dir()}]),
  	{ok,BeginAt} = Mod:get_cwd(),
  	true = is_list(BeginAt),
          {error,enoent} = Mod:set_cwd("åä_dir"),
  	ok = Mod:set_cwd("åäö_dir"),
  	{ok, NowAt} = Mod:get_cwd(),
  	true = is_list(NowAt),
  	true = BeginAt =/= NowAt,
  
negative.code: 		{error,enoent} = Mod:read_link_info("nisseö"),
  		{error,enoent} = Mod:read_file(treat_icky(<<"nisseö">>)),
  		{error,enoent} = Mod:read_link_info(treat_icky(<<"nisseö">>));
  	    {error,enotsup} ->
  		ok
  	end,
  	[ begin
  	      {ok, FD} = Mod:open(Name,[read]),
  	      {ok, Content} = Mod:read(FD,1024),
  	      ok = file:close(FD)
  	  end || {regular,Name,Content} <- IckyDir ],
  	[ begin
  	      {ok, FD} = Mod:open(Name,[read,binary]),
  	      BC = list_to_binary([Content]),
  	      {ok, BC} = Mod:read(FD,1024),
  	      ok = file:close(FD)
  	  end || {regular,Name,Content} <- IckyDir ],
          Mod:rename("åäö2","åäö_fil1"),
          {ok, <<"åäö2">>} = Mod:read_file("åäö_fil1"),
          {error,enoent} = Mod:read_file("åäö2"),
  