anchor.diff:      % Input bucket name cannot have whitespace.
       FmtV = case mc_bucket:is_valid_bucket_name(BucketId) of
                  true -> undefined;
  -               _ -> <<"Bucket name is invalid.">>
  +               _ -> <<"The cache bucket name is invalid.">>
              end,
       PossMsg = [DupNameV, SzV, FmtV, NzV],
       Msgs = lists:filter(fun (X) -> X =/= undefined end,
  
positive.code:     DupNameV = case mc_bucket:bucket_config_get(mc_pool:pools_config_get(),
                                                  PoolId, BucketId) of
                     false -> undefined;
                     _ -> <<"Bucket with given name already exists">>
                 end,
      ParsedSizeWanted = (catch list_to_integer(proplists:get_value("cacheSize", PostArgs))),
      NzV = if
                not is_integer(ParsedSizeWanted) -> <<"The cache size must be an integer.">>;
                ParsedSizeWanted =< 0 -> <<"The cacheSize must be non-zero">>;
                true -> undefined
            end,
      SizeWanted = if
  
negative.code:     MinMemFree = (trunc(SmallestNodeRAM/1048576) - TotalBucketsSize - 128),
      SzV = case SizeWanted > MinMemFree of
                true -> list_to_binary(
                          io_lib:format("Cannot create cache bucket; the cluster only has ~p megabytes free for new cache buckets.",
                                        [trunc(MinMemFree)]));
                false -> undefined
            end,
  