anchor.diff:          {ok, PortBindings} ->
               case bind(lists:reverse(HostSpec), Host, PortBindings, 0) of
                   {ok, HostRemainder, HostBindings, _} ->
  -                    case try_path_binding(PathSpec, Path, HostBindings, Depth, RD) of
  +                    case try_path_binding(PathSpec, Path, HostRemainder, Port, HostBindings, Depth, RD) of
                           {Mod, Props, PathRemainder, PathBindings,
                            AppRoot, StringPath} ->
                               {Mod, Props, HostRemainder, Port, PathRemainder,
  
positive.code:                  try_host_binding(Dispatch, ["bar","quux","foo"],80,["d"],0, RD)).
  
  try_host_binding_fail_test() ->
      RD = ignored,
      ?assertEqual({no_dispatch_match, {["bar","foo"], 1234}, ["x","y","z"]},
                   try_host_binding([], ["bar","foo"], 1234, ["x","y","z"], 0, RD)).
  
  dispatch_test() ->
      RD = ignored,
      TrueFun = fun(_) -> true end,
      FalseFun = fun(_) -> false end,
  
  
negative.code:                                   ["quux","no"], 82, ["d"], 0, RD)).
  
  try_host_binding_fullmatch_test() ->
      RD = testing,
      Dispatch = [{{["foo","bar"],80},[{["a"],x,y}]},
                  {{[foo,"bar"],80},  [{["b"],z,q}]},
                  {{[foo,"bar"],baz}, [{["c"],r,s}]},
  