anchor.diff:      {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}]),
  +                          file:read_file_info(P),
  +                      [UTC|_] = %% FIXME This is a hack until R15B
  +                          calendar:local_time_to_universal_time_dst(Date),
                         #bucket{ name=filename:basename(P),
  -                               date=iso8601:format(Date) }
  +                               date=iso8601:format(UTC) }
                 end,
                 lists:filter(fun filelib:is_dir/1,
                              lists:map(fun(F) ->
  
positive.code:                 {ok, Md5} ->
                      case file:read_file_info(Filename) of
                          {ok, #file_info{mtime=Date, size=Size}} ->
                              {ok, #object{name=Path,
                                           date=Date,
                                           size=Size,
                                           digest=Md5}};
                          Any -> Any
  
negative.code:                                 Acc,
                                  [#object{
                                      name=Name,
                                      date=iso8601:format(UTC),
                                      size=Size
                                     }]
                                 );
  