anchor.diff:                  end;
               {archive, ArchiveFile, FileInArchive} ->
                   debug(PS, {archive_read_file_info, File}),
  -                FunnyFile = funny_split(FileInArchive, $/),
  +                FileComponents = path_split(FileInArchive),
                   Fun =
  -                    fun({Funny, GetInfo, _GetBin}, Acc)  ->
  -			    case Funny of
  -				[H | T] when  H =:= "",
  -					      T =:= FunnyFile ->
  +                    fun({Components, GetInfo, _GetBin}, Acc)  ->
  +			    case Components of
  +				["" | F] when F =:= FileComponents ->
                                       %% Directory
                                       {false, {ok, GetInfo()}};
  -                                F when F =:= FunnyFile ->
  +                                F when F =:= FileComponents ->
                                       %% Plain file
                                       {false, {ok, GetInfo()}};
                                   _ ->
  
positive.code:                 {Res, PS};
              {archive, ArchiveFile, FileInArchive} ->
                  debug(PS, {archive_get_file, ArchiveFile, FileInArchive}),
                  FunnyFile = funny_split(FileInArchive, $/),
                  Fun =
                      fun({Funny, _GetInfo, GetBin}, Acc) ->
                              if
                                  Funny =:= FunnyFile ->
                                      {false, {ok, GetBin()}};
                                  true ->
                                      {true, Acc}
  
negative.code:                 {Res, PS};
              {archive, ArchiveFile, FileInArchive} ->
                  debug(PS, {archive_list_dir, ArchiveFile, FileInArchive}),
                  DirComponents = path_split(FileInArchive),
                  Fun =
                      fun({Components, _GetInfo, _GetBin}, {Status, Names} = Acc) ->
                              case Components of
                                  [RevName | DC] when DC =:= DirComponents ->
                                      case RevName of
                                          "" ->
                                              %% The listed directory
  