anchor.diff:          [] ->
               "";
           _ ->
  -            string:join(lists:reverse(Acc), "/")
  +          PathList = lists:reverse(Acc),
  +          case is_atleast_version({5,6}) of
  +            true -> string:join(PathList, "/");
  +            false -> hd(PathList) ++ lists:concat(["/" ++ X || X <- tl(PathList)])
  +          end
       end;
   safe_relative_path(P, Acc) ->
       case partition(P, "/") of
  
positive.code: shell_quote([C | Rest], Acc) ->
      shell_quote(Rest, [C | Acc]).
  
  test() ->
      test_join(),
      test_quote_plus(),
  
negative.code: -export([shell_quote/1, cmd/1, cmd_string/1, cmd_port/2]).
  -export([record_to_proplist/2, record_to_proplist/3]).
  -export([safe_relative_path/1, partition/2]).
  -export([is_atleast_version/1]).
  -export([test/0]).
  
  -define(PERCENT, 37).  % $\%
  