anchor.diff:      case  Mod:read_link_info(Dir) of
   	{ok, #file_info{type = directory}} ->
   	    {ok,#file_info{type = directory}} =  Mod:read_file_info(Dir),
  -	    {ok, Content} = Mod:list_dir(Dir),
  +	    {ok, Content} = Mod:list_dir_all(Dir),
   	    [ true = is_list(Part) || Part <- Content ],
   	    [ true = is_list(filename:join(Dir,Part)) || Part <- Content ],
   	    [ rm_r(Mod,filename:join(Dir,C)) || C <- Content ],
  
positive.code: 		?line ok = Mod:set_cwd("åäö_dir"),
  		?line ok = Mod:write_file(<<"ååå">>,<<"hello">>),
  		?line Treated = treat_icky(<<"ååå">>),
  		?line {ok,[Treated]} = Mod:list_dir("."),
  		?line ok = Mod:delete(<<"ååå">>),
  		?line {ok,[]} = Mod:list_dir("."),
  		?line ok = Mod:set_cwd(".."),
  
negative.code:  	?line Syms = [ {S,conv(Targ),list_to_binary(get_data(Targ,icky_dir()))} 
   		 || {T,S,Targ} <- icky_dir(), T =:= symlink ],
   	?line [ {ok, Cont} = Mod:read_file(SymL) || {SymL,_,Cont} <- Syms ],
   	[ {ok, Targ} = fixlink(Mod:read_link_all(SymL)) ||
  	    {SymL,Targ,_} <- Syms ],
          ?line chk_cre_dir(Mod,[{directory,"åäö_dir",icky_dir()}]),
   	?line {ok,BeginAt} = Mod:get_cwd(),
   	?line true = is_list(BeginAt),
  