anchor.diff:          {?is_cloning, true}
       ],
       Func = fun({Col, _} = Item, NCols) ->
  -            lists:keystore(Col, 1, NCols, Item)
  +            key1store(Col, NCols, Item)
       end,
       Cols1 = lists:foldl(Func, ClonedCols, Cols),
  -    lists:keysort(1, Cols1).
  +    key1sort(Cols1).
   
   no_cloning(Cols0) ->
  -    Cols1 = lists:keydelete(?usmUserCloneFrom, Cols0),
  -    lists:keydelete(?is_cloning, Cols1).
  +    Cols1 = key1delete(?usmUserCloneFrom, Cols0),
  +    key1delete(?is_cloning, Cols1).
   
   
   validate_auth_protocol(RowIndex, Cols) ->
  -    case lists:keysearch(?usmUserAuthProtocol, 1, Cols) of
  +    case key1search(?usmUserAuthProtocol, Cols) of
   	{value, {_Col, AuthProtocol}} ->
   	    %% Check if the row is being cloned; we can't check the
   	    %% old value of authProtocol, because if the row was
  
positive.code:     set_key_change(RowIndex, Cols, ?usmUserOwnPrivKeyChange, priv).
  
  set_key_change(RowIndex, Cols, KeyChangeCol, Type) ->
      case lists:keysearch(KeyChangeCol, 1, Cols) of
  	{value, {_Col, KeyChange}} ->
  	    KeyCol = case Type of
  			 auth -> ?usmUserAuthKey;
  
negative.code: %% no further checks.
  %%-----------------------------------------------------------------
  validate_clone_from(RowIndex, Cols) ->
      case key1search(?usmUserCloneFrom, Cols) of
  	{value, {_Col, RowPointer}} ->
  	    RowIndex2 = extract_row(RowPointer),
  	    OldCloneFrom = snmp_generic:table_get_element(db(usmUserTable),
  