anchor.diff:  %% @doc @todo
   attribute_to_item({'PartialAttribute', Name, [Value]}) when is_list(Name),
   							    is_list(Value) ->
  -    {Name, Value};
  +    {list_to_bitstring(Name), list_to_bitstring(Value)};
   attribute_to_item({'PartialAttribute', Name, Value}) when is_list(Name),
   							  is_list(Value) ->
  -    {Name, {array, Value}}.
  +    {list_to_bitstring(Name), {array, [list_to_bitstring(V) || V <- Value]}}.
   
   handle_cast({{bindRequest, Options}, MessageID,_BindDN, From}, State) ->
       {'BindRequest',_, BindDN, Creds} = Options,
  
positive.code: search_reply(_From, SearchResult,_MessageID) when is_atom(SearchResult) ->
      SearchResult;
  search_reply(From, [Item|Result], MessageID) ->
      Attrs = lists:flatten(
  	      lists:map(fun(I) -> 
  				item_to_attribute(I) 
  			end, Item)),
      {value, {_, "dn", [DN]}, PartialAttrs} = lists:keytake("dn", 2, Attrs),
      Entry = {'SearchResultEntry', DN, PartialAttrs},
      ldap_fsm:reply(From, {{searchResEntry, Entry}, MessageID}),
  
negative.code:     object_get(list_to_bitstring(Key), Entry);
  object_get(Key, Entry) when is_bitstring(Key) ->
      element(2, lists:keyfind(Key, 1, Entry)).
  
  %% @doc @todo
  object_insert(Key, Value, Entry) when is_list(Key) ->
      object_insert(list_to_bitstring(Key), Value, Entry);
  object_insert(Key, Value, Entry) when is_bitstring(Key),
  				      is_list(Value) ->
      object_insert(Key, list_to_bitstring(Value), Entry);
  object_insert(Key, Value, Entry) when is_bitstring(Key),
  				      is_bitstring(Value) ->
      [{Key, Value} | Entry].
  
  %% @doc @todo
  rdn(DN) ->
  