anchor.diff:  
   %%
   -spec make_rpberrresp(integer(), string()) -> #rpberrorresp{}.
  -make_rpberrresp(Code, Message) ->
  +make_rpberrresp(Code, Message) when is_list(Message) ->
       #rpberrorresp{errcode = Code,
                     errmsg = iolist_to_binary(Message)}.
   
  
positive.code:         {error, {too_many_subqueries, NQuanta, MaxQueryQuanta}} ->
              {reply, make_max_query_quanta_resp(NQuanta, MaxQueryQuanta), State};
  
          {error, AReason} when is_atom(AReason) -> %%<< i.e. overload, primary_not_available
              {reply, make_rpberrresp(?E_SUBMIT, atom_to_list(AReason)), State};
          {error, Reason} ->
              {reply, make_rpberrresp(?E_SUBMIT, Reason), State}
      end.
  
  
  
negative.code:       ?E_CREATED_GHOST,
        flat_format("Table ~s has been created but found missing", [Table])).
  
  to_string(X) when is_atom(X) ->
      atom_to_list(X);
  to_string(X) ->
      flat_format("~p", [X]).
  
  