anchor.diff:                  {ok, Md5} ->
                       case file:read_file_info(Filename) of
                           {ok, #file_info{mtime=Date, size=Size}} ->
  +                            [UTC|_] = %% FIXME This is a hack until R15B
  +                                calendar:local_time_to_universal_time_dst(Date),
                               {ok, #object{name=Path,
  -                                         date=Date,
  +                                         date=UTC,
                                            size=Size,
                                            digest=Md5}};
                           Any -> Any
  
positive.code:     {ok, Files} = file:list_dir(Dir), %% crash if no access to base dir
      lists:map(fun(P) -> %% crash if no access to any bucket dir
                        {ok, #file_info{ctime=Date}} =
                            file:read_file_info(P, [{time, universal}]),
                        #bucket{ name=filename:basename(P),
                                 date=iso8601:format(Date) }
                end,
                lists:filter(fun filelib:is_dir/1,
                             lists:map(fun(F) ->
  
negative.code:                                 Acc,
                                  [#object{
                                      name=Name,
                                      date=iso8601:format(UTC),
                                      size=Size
                                     }]
                                 );
  