anchor.diff:                     end]]
        || Key <- lists:sort(Keys)].
   
  -show_storage(_RiakcPid, undefined)->
  +show_storage(_RiakcPid, undefined, _)->
       usage(storage, show),
       halt(1);
  -show_storage(RiakcPid, Key)->
  -    [print_storage_stats(Key, SiblingNo, StatsBin)
  +show_storage(RiakcPid, Key, PrintZeros)->
  +    [print_storage_stats(Key, SiblingNo, StatsBin, PrintZeros)
        || {SiblingNo, {_RiakMD, StatsBin}}
               <- get_riak_object(RiakcPid, "moss.storage", Key)].
   
  
positive.code: process_command(storage, list, _Opts, RiakcPid) ->
      list_storage(RiakcPid);
  process_command(storage, show, Opts, RiakcPid) ->
      show_storage(RiakcPid, proplists:get_value(key, Opts));
  process_command(block, list, Opts, RiakcPid) ->
      list_blocks(RiakcPid,
                 proplists:get_value(bucket, Opts),
  
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]),
  