anchor.diff:      {[Data, "\n"], Env};
   
   render(#occi_node{type=occi_resource, data=Res}, Env) ->
  -    E = make_doc([?declared_occi_ns, ?declared_xlink_ns],
  -		 ?occi_ns, resource,
  -		 [exmpp_xml:attribute(<<"id">>, occi_uri:to_binary(occi_resource:get_id(Res))),
  -		  exmpp_xml:attribute(<<"title">>, occi_resource:get_title(Res))], 
  -		 [make_cid(kind, occi_resource:get_cid(Res))]),
  +    E = make_ns([?declared_occi_ns, ?declared_xlink_ns],
  +		exmpp_xml:element(
  +		  ?occi_ns, resource,
  +		  [exmpp_xml:attribute(<<"id">>, occi_uri:to_binary(occi_resource:get_id(Res))),
  +		   exmpp_xml:attribute(<<"title">>, occi_resource:get_title(Res))], 
  +		  [make_cid(kind, occi_resource:get_cid(Res))])),
       Data = render_xml(
   	     lists:foldl(
   	       fun (#uri{}=Link, Acc) -> 
  
positive.code: 	  
  render(#occi_node{type=occi_collection, data=Coll}, Env) ->
      Data = render_xml(
  	     make_doc([?declared_occi_ns, ?declared_xlink_ns],
  		      ?occi_ns, collection,
  		      [],
  		      [ exmpp_xml:element(
  			  ?occi_ns, entity,
  			  [exmpp_xml:attribute(?xlink_ns, <<"href">>, occi_uri:to_binary(Id))], []) || 
  			  Id <- occi_collection:get_entities(Coll) ])),
      {[Data, "\n"], Env}.
  
  %%%
  
negative.code: 
  render_attr_value(Val) when is_float(Val) ->
      io_lib:format("~p", [Val]);
  render_attr_value(#uri{}=Val) ->
      occi_uri:to_string(Val);
  render_attr_value(Val) ->
      Val.
  
  make_ns([], #xmlel{}=E) ->
      E;
  make_ns([{NS, Prefix}|Tail], #xmlel{}=E) ->
  