anchor.diff:      Table = table_name(RecName),
       ["INSERT INTO ", Table, "(", InsertFieldsSQL,
        ") VALUES (", Params, ") RETURNING ", AllFieldsSQL].
  -    
  +
   gen_fetch_page(RecName, OrderBy) ->
       AllFields = map_to_str(all_fields(RecName)),
       FieldsSQL = string:join(AllFields, ", "),
  
positive.code:     Prefix = join_atoms([RecName, '_']),
      [ {join_atoms([Prefix, Key]), as_bin(Query)}
        || {Key, Query} <- proplist_merge(Customs, Defaults) ].
      
  proplist_merge(L1, L2) ->
      SL1 = lists:keysort(1, L1),
      SL2 = lists:keysort(1, L2),
      lists:keymerge(1, SL1, SL2).
      
  default_queries(RecName) ->
      [  {fetch_by_id,   gen_fetch_by(RecName, id)}
       , {fetch_by_name, gen_fetch_by(RecName, name)}
  
negative.code:     ["SELECT ", FieldsSQL, " FROM ", Table,
       " WHERE ", OrderByStr, " > $1 ORDER BY ", OrderByStr,
       " LIMIT $2"].
  
  gen_fetch_all(RecName, OrderBy) ->
      AllFields = map_to_str(all_fields(RecName)),
      FieldsSQL = string:join(AllFields, ", "),
  