anchor.diff:  -spec type_of(term()) -> boolean().
   type_of(X) ->
       if
  +        is_boolean(X) ->        %% This test must come before is_atom/1
  +            <<"boolean">>;
           is_atom(X) ->
               <<"atom">>;
           is_binary(X) ->
               <<"binary">>;
           is_bitstring(X) ->
               <<"bitstring">>;
  -        is_boolean(X) ->
  -            <<"boolean">>;
           is_float(X) ->
               <<"float">>;
           is_function(X) ->
  
positive.code: 
  -spec get_domain_from_path(list()) -> list().
  get_domain_from_path(Path) when is_list(Path) ->
      ?nebMsg("Entry"),
      Parts = string:tokens(Path, "/"),
      DomainParts = lists:takewhile(fun(X) -> true /= beginswith(X, "cdmi_domain_") end, Parts),
      "/" ++ string:join(DomainParts, "/") ++ "/".
  
negative.code: %% Update Metadata
  -spec update_data_system_metadata(list(), map(), cdmi_state()) -> map().
  update_data_system_metadata(CList, Data, State) when is_list(CList), is_map(Data), is_tuple(State) ->
  %    ?nebMsg("Entry"),
      CapabilitiesURI = get_value(<<"capabilitiesURI">>, Data, []),
      update_data_system_metadata(CList, Data, CapabilitiesURI, State).
  
  -spec update_data_system_metadata(list(),map(), binary() | string(), cdmi_state()) -> map().
  update_data_system_metadata(_, Data, [], _) when is_map(Data)->
  %    ?nebMsg("Entry"),
      Data;
  update_data_system_metadata(CList, Data, CapabilitiesURI, State) when is_binary(CapabilitiesURI) ->
      update_data_system_metadata(CList, Data, binary_to_list(CapabilitiesURI), State);
  update_data_system_metadata(CList, Data, CapabilitiesURI, State) ->
  %    ?nebMsg("Entry"),
      Domain = get_domain_hash(<<"">>),
      {ok, C1} = nebula2_db:search(Domain ++ CapabilitiesURI, State),
      Capabilities = get_value(<<"capabilities">>, C1),
  