anchor.diff:  put_entity(Name, node, Value) ->
       value_check(node, Value),
       IdGroup = wallaby_node:identity_group(Value),
  -    Whence = canonicalize_hash(put_entity(IdGroup, group, wallaby_group:new(IdGroup))),
  +    Whence = wallaroo_hash:canonicalize(put_entity(IdGroup, group, wallaby_group:new(IdGroup))),
       gen_server:call(?SERVER,  {put, node, Name, Value, Whence});
   put_entity(Name, Kind, Value) when ?VALID_ENTITY_KIND(Kind) ->
       value_check(Kind, Value),
  
positive.code:     end.
  
  get_entity(Name, Kind, Commit) ->
      gen_server:call(?SERVER, {get, Kind, Name, canonicalize_hash(Commit)}).
  
  get_tag(Name) ->
      gen_server:call(?SERVER,  {get_tag, Name}).
  
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}).
  