anchor.diff:                                            "" ->
                                                 "/";
                                             _ ->
  -                                              "/" ++ join(PreSegments,"/") ++ "/"
  +                                              "/" ++
  +                                                  yaws:join_sep(PreSegments,"/")
  +                                                  ++ "/"
                                         end;
                           _ ->
                               %%'floating' appmod mount.
  
positive.code:                                           "" ->
                                                "/";
                                            _ ->
                                                "/" ++ join(PreSegments,"/") ++ 
                                                    "/"
                                        end
                      end,
                      PathI = case PostSegments of
                                  [] ->
                                      "";
                                  _ ->
                                      "/" ++ join(PostSegments,"/")
                              end,
                      %%absence of RevFile tells us there was a trailing slash.
                      PathInf = case RevFile of
  
negative.code:     deliver_xxx(CliSock, Req, 403).        % Forbidden
  
  deliver_405(CliSock, Req, Methods) ->
      Methods_msg = lists:flatten(
                      ["<p>This resource allows ",
                       yaws:join_sep([atom_to_list(M) || M <- Methods], ", "),
                       "</p>"]),
      deliver_xxx(CliSock, Req, 405, Methods_msg).
  
  deliver_416(CliSock, _Req, Tot) ->
  