anchor.diff:                 catch _:_ -> 0
                  end || Name <- db_files(DBDir, BucketName)]).
   
  +storage_conf(Node) ->
  +    storage_conf(Node, ns_config:get()).
  +
   % Returns a proplist of lists of proplists.
   %
   % A quotaMb of -1 means no quota.
  
positive.code: %  {hdd, [[{path, /some/nice/disk/path}, {quotaMb, 1234}, {state, ok}],
  %         [{path", /another/good/disk/path}, {quotaMb, 5678}, {state, ok}]]}]
  %
  storage_conf(Node) ->
      {value, PropList} = ns_config:search_node(Node, ns_config:get(), memcached),
      HDDInfo = case proplists:get_value(dbdir, PropList) of
                    undefined -> [];
                    DBDir -> [{path, filename:absname(DBDir)},
  
negative.code:     end.
  
  extract_node_storage_info(NodeInfo, Node) ->
      extract_node_storage_info(NodeInfo, Node, ns_config:get()).
  
  extract_node_storage_info(NodeInfo, Node, Config) ->
      {RAMTotal, RAMUsed, _} = proplists:get_value(memory_data, NodeInfo),
      DiskStats = proplists:get_value(disk_data, NodeInfo),
      DiskPaths = [proplists:get_value(path, X) || X <- proplists:get_value(hdd, storage_conf(Node, Config))],
      case memory_quota(Node, Config) of
          MemQuotaMB when is_integer(MemQuotaMB) ->
              {DiskTotal, DiskUsed} =
                  lists:foldl(fun (Path, {ATotal, AUsed} = Tuple) ->
  