anchor.diff:      case emongo:find_one(eds, ?COLL, [{"_rdn", rdn(DN)}]) of
   	[_Entry] -> entryAlreadyExists;
   	[] ->
  -	    Entry = lists:map(fun(A) -> attribute_to_item(A) end, Attrs),
  +	    Entry = lists:map(fun(A) -> ldap_obj:to_record(A) end, Attrs),
   	    AddDN = ldap_obj:insert(<<"dn">>, DN, Entry),
   	    NewEntry = ldap_obj:insert(<<"_rdn">>, rdn(DN), AddDN),	    
   	    Response = emongo:insert_sync(eds, ?COLL, NewEntry),
  
positive.code: 
  %% @doc Apply ModifyRequest change atoms to an object
  modify_apply({'ModifyRequest_changes_SEQOF', add, Change}, Entry) ->
      {Key, Value} = attribute_to_item(Change),
      ldap_obj:insert(Key, Value, Entry);
  modify_apply({'ModifyRequest_changes_SEQOF', replace, Change}, Entry) ->
      {Key, Value} = attribute_to_item(Change),
      ldap_obj:modify(Key, Value, Entry);
  modify_apply({'ModifyRequest_changes_SEQOF', delete, Change}, Entry) ->
      {Key,_Value} = attribute_to_item(Change),
      ldap_obj:delete(Key, Entry).
  
  %% @doc Parse eMongo response code
  
negative.code: %%       DN -> list()
  rdn(DN) ->
      lists:reverse(DN).
  
  handle_cast({{bindRequest, Options}, MessageID,_BindDN, From}, State) ->
      {'BindRequest',_, BindDN, Creds} = Options,
  