anchor.diff:        fun(FilePath, Acc) ->
                 case filelib:is_regular(FilePath) of
                     true ->
  -                      case file:read_file_info(FilePath,
  -                                               [{time, universal}]) of
  +                      case file:read_file_info(FilePath) of
                             {ok, #file_info{size=Size, mtime=Date}} ->
  +                              [UTC|_] = %% FIXME This is a hack until R15B
  +                                  calendar:local_time_to_universal_time_dst(Date),
                                 Pos = byte_size(FilePath),
                                 Len = byte_size(BucketPath) + 1
                                     - byte_size(FilePath),
  
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
                                     }]
                                 );
  