anchor.diff:      insert(atom_to_list(Table), Props, Context);
   insert(Table, Props, Context) ->  
       assert_table_name(Table),
  -    Cols = columns(Table, Context),
  +    Cols = column_names(Table, Context),
       InsertProps = prepare_cols(Cols, Props),
       C = get_connection(Context),
   
  
positive.code:              ++ string:join([ [$$ | integer_to_list(N)] || N <- lists:seq(1, length(Parameters)) ], ", ")
               ++ ")",
  
      FinalSql = case proplists:is_defined(id, Cols) of
          true -> Sql ++ " returning id";
          false -> Sql
      end,
  
negative.code:     end.
  
  split_props(Props, Cols) ->
      {CProps, PProps} = lists:partition(fun ({P,_V}) -> lists:member(P, Cols) end, Props),
      case PProps of
          [] -> ok;
          _  -> z_utils:assert(lists:member(props, Cols), {unknown_column, PProps})
      end,
      {CProps, PProps}.
  
  