anchor.diff:  put_entity(Name, node, Value, SuppliedCommit) ->
       value_check(node, Value),
       IdGroup = wallaby_node:identity_group(Value),
  -    C = canonicalize_hash(SuppliedCommit),
  -    Whence = canonicalize_hash(put_entity(IdGroup, group, wallaby_group:new(IdGroup), C)),
  +    C = wallaroo_hash:canonicalize(SuppliedCommit),
  +    Whence = wallaroo_hash:canonicalize(put_entity(IdGroup, group, wallaby_group:new(IdGroup), C)),
       gen_server:call(?SERVER,  {put, node, Name, Value, Whence});
   put_entity(Name, Kind, Value, SuppliedCommit) when ?VALID_ENTITY_KIND(Kind) ->
       value_check(Kind, Value),
  -    C = canonicalize_hash(SuppliedCommit),
  +    C = wallaroo_hash:canonicalize(SuppliedCommit),
       gen_server:call(?SERVER,  {put, Kind, Name, Value, C}).
   
   %%% gen_server callbacks
  
positive.code: %%% Helpers
  
  add_last_updated(Commit, {value, {wallaby_node, Dict}}) ->
      {value, {wallaby_node, orddict:store(last_updated_version, list_to_binary(wallaroo_hash:bitstring_to_string(Commit)), Dict)}};
  add_last_updated(_, _=Val) ->
      Val.
  
  canonicalize_hash(String) when is_list(String) ->
      wallaroo_hash:hash_to_bitstring(String);
  canonicalize_hash(BS) when is_binary(BS) ->
      BS.
  
  xlate_what('node') ->
      <<"nodes">>;
  
negative.code:     end.
  
  list_entities(Kind, Commit) when ?VALID_ENTITY_KIND(Kind) ->
      gen_server:call(?SERVER, {list, Kind, wallaroo_hash:canonicalize(Commit)}).
  
  list_tags() ->
      gen_server:call(?SERVER, {list_tags}).
  