anchor.diff:  check_normal(Mod) -> 
       {ok,Dir} = Mod:get_cwd(),
       try
  -	make_normal_dir(Mod),
  +	NormalDir = make_normal_dir(Mod, "normal_dir"),
  +	io:format("Normaldir = ~p\n", [NormalDir]),
  +	L1 = lists:sort(list(NormalDir)),
   	{ok, L0} = Mod:list_dir("."),
  +	io:format("L0 = ~p\n", [L0]),
   	L1 = lists:sort(L0),
  -	L1 = lists:sort(list(normal_dir())),
   	{ok,D2} = Mod:get_cwd(),
   	true = is_list(D2),
   	case Mod:altname("fil1") of
  
positive.code: 	true ->
  	    L
      end.
  
  
  rand_comp_decomp(Max) ->
  
negative.code: 	    false
      end.
  
  make_very_icky_dir(Mod, DirName) ->
      Desc = [{regular,"fil1","fil1"},
  	    {regular,[956,965,963,954,959,49],"åäö2"},
  	    {hardlink,[956,965,963,954,959,50],
  	     [956,965,963,954,959,49],
  	     "åäö2"},
  	    {symlink,[956,965,963,954,959,51],[956,965,963,954,959,49]},
  	    {regular,treat_icky(<<"åäö5">>),"åäö5"},
  	    {symlink,treat_icky(<<"åäö6">>),treat_icky(<<"åäö5">>)},
  	    {directory,treat_icky(<<"åäösubdir2">>),
  	     [{regular,treat_icky(<<"åäösubfil2">>),"åäösubfil12"},
  	      {regular,"åäösubfil3","åäösubfil13"}]},
  	    {directory,[956,965,963,954,959]++"subdir1",
  	     [{regular,[956,965,963,954,959]++"subfil1","åäösubfil1"}]}],
      rm_rf(Mod, DirName),
      ok = Mod:make_dir(DirName),
      ok = Mod:set_cwd(DirName),
      make_dir_contents(Desc, Mod).
  
  %% Some OS'es simply do not allow non UTF8 filenames
  treat_icky(Bin) ->
  