anchor.diff:      DupNameV = case mc_bucket:bucket_config_get(mc_pool:pools_config_get(),
                                                   PoolId, BucketId) of
                      false -> undefined;
  -                   _ -> <<"Bucket with given name already exists">>
  +                   _ -> <<"A cache 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">>;
  +              ParsedSizeWanted =< 0 -> <<"The cache size must be non-zero.">>;
                 true -> undefined
             end,
       SizeWanted = if
  
positive.code:     MinMemFree = (trunc(SmallestNodeRAM/1048576) - TotalBucketsSize - 128),
      SzV = case SizeWanted > MinMemFree of
                true -> list_to_binary(
                          io_lib:format("OS reported free memory for a bucket is ~p megabytes",
                                        [trunc(MinMemFree)]));
                false -> undefined
            end,
  
negative.code:     % Input bucket name cannot have whitespace.
      FmtV = case mc_bucket:is_valid_bucket_name(BucketId) of
                 true -> undefined;
                 _ -> <<"The cache bucket name is invalid.">>
             end,
      PossMsg = [DupNameV, SzV, FmtV, NzV],
      Msgs = lists:filter(fun (X) -> X =/= undefined end,
  