anchor.diff:  	     {<<"location">>, occi_uri:to_binary(Uri)}],
       E = set_attributes(exmpp_xml:element(action), Attrs),
       render_attr_specs(E, occi_action:get_attr_list(Action)).
  +
  +render_uri(E, #uri{}=Uri) ->
  +    exmpp_xml:append_child(
  +      E, exmpp_xml:set_attribute(
  +	   exmpp_xml:element(link), <<"uri">>, occi_uri:to_binary(Uri))).
   
   render_related(E, _, undefined) ->
       E;
  
positive.code: %%%
  %%% API
  %%%
  render(#occi_node{type=occi_query, data={Kinds, Mixins, Actions}}) ->
      Children = lists:map(fun render_kind/1, Kinds)
  	++ lists:map(fun render_mixin/1, Mixins)
  
negative.code:       exmpp_xml:set_children(
         exmpp_xml:element(occi, collection),
  	[ exmpp_xml:set_attribute(exmpp_xml:element(resource), <<"id">>, occi_uri:to_binary(Id)) || 
  	    Id <- occi_collection:get_entities(Coll) ])).
  
  %%%
  %%% Private
  %%%
  render_dir(#occi_node{id=Id, type=dir, data=Children}) ->
      E = set_attributes(exmpp_xml:element(occi, node), 
  		       [{<<"id">>, occi_uri:to_binary(Id)},
  			{<<"dir">>, <<"true">>}]),
      exmpp_xml:set_children(E, gb_sets:fold(fun (Child, Acc) ->
  						   [ render_dir(Child) | Acc ]
  					   end, [], Children));
  render_dir(#occi_node{id=Id}) ->
      set_attributes(exmpp_xml:element(occi, node), 
  		   [{<<"id">>, occi_uri:to_binary(Id)}]).
  
  
  render_kind(#occi_kind{}=Kind) ->
  