anchor.diff:  process_command(storage, list, _Opts, RiakcPid) ->
       list_storage(RiakcPid);
   process_command(storage, show, Opts, RiakcPid) ->
  -    show_storage(RiakcPid, proplists:get_value(key, Opts));
  +    show_storage(RiakcPid, proplists:get_value(key, Opts),
  +                 proplists:get_value(print_zeros, Opts));
   process_command(block, list, Opts, RiakcPid) ->
       list_blocks(RiakcPid,
                  proplists:get_value(bucket, Opts),
  
positive.code:                   {show, [{key, undefined, undefined, string, "access stats key"}]}]}).
  -define(storage_cmd_spec,
          {storage, [{list, ?sort_opt_spec},
                     {show, [{key, undefined, undefined, string, "storage stats key"}]}]}).
  -define(user_cmd_spec,
          {user, [{list, ?sort_opt_spec},
                  {show, [{key, undefined, "key", string, "User ID"},
  
negative.code:         {Op, OpStats} <- Ops,
          {StatsKey, StatsValue} <- OpStats].
  
  print_storage_stats(Key, SiblingNo, StatsBin, PrintZeros) ->
      {Start, End, _Node, Buckets} = stats_sample_from_binary(StatsBin),
      io:nl(),
      io:format("Key       : ~s~n", [Key]),
  