anchor.diff:  
   
   path_info_split([H|T], Ack) ->
  -    case drop_till_dot(H) of
  -	[] ->
  +    [$/|RevPath] = lists:reverse(H),
  +    case suffix_from_rev(RevPath) of
  +	[] ->   % shortcut clause, not necessary
   	    path_info_split(T, [H|Ack]);
   	Suff ->
  -	    [$/|Tail] = lists:reverse(Suff),
  -	    {Type, Mime} = mime_types:revt(Tail),
  +	    {Type, Mime} = mime_types:t(Suff),
   	    case Type of
  -		regular -> %% maybe they have dirnames with dots
  +		regular ->
   		    path_info_split(T, [H|Ack]);
   		forbidden ->
   		    {false, forbidden};
  
positive.code: maybe_return_dir(DR, GetPath) ->
      ?Debug("maybe_return_dir(~p, ~p)", [DR, GetPath]),
      case prim_file:read_file_info([DR, GetPath, "index.yaws"]) of
  	{ok, _FI} ->
  	    do_url_type(get(sc), GetPath ++ "index.yaws");
  	_ ->
  	    case prim_file:read_file_info([DR, GetPath, "index.html"]) of
  		{ok, _FI} ->
  		    do_url_type(get(sc), GetPath ++ "index.html");
  		_ ->
  		    case file:list_dir([DR, GetPath]) of
  
negative.code:     {false, error}.
  
  
  suffix_from_rev(R) ->
      suffix_from_rev(R, []).
  
  suffix_from_rev([$.|_], A) ->
      A;
  suffix_from_rev([C|T], A) ->
      suffix_from_rev(T, [C|A]);
  suffix_from_rev([], _A) ->
      [].
  
  
  
  conc_path([]) ->
  