anchor.diff:    case emysql_statements:fetch(Name) of
       undefined ->
         Query = iolist_to_binary(Fun()),
  -      lager:debug("Preparing query: ~p: ~p", [Name, Query]),
  +      log("Preparing query: ~p: ~p", [Name, Query]),
         ok = emysql:prepare(Name, Query);
  -    Q -> lager:debug("Using already prepared query: ~p: ~p", [Name, Q])
  +    Q ->
  +      log("Using already prepared query: ~p: ~p", [Name, Q])
     end,
     Name.
   
  
positive.code:   list_to_atom(string:join(
      [atom_to_list(DocName), atom_to_list(StatementName), "stmt"], "_"
    )).
  
negative.code: execute(PreQuery, #state{pool=Pool}) when is_list(PreQuery)->
    Query = iolist_to_binary(PreQuery),
    {Time, Value} = timer:tc( emysql, execute, [Pool, Query] ),
    log("Executed Query: ~s (~pms)", [Query, Time]),
    Value.
  
  prepare(DocName, PreName, Fun) when is_atom(PreName), is_function(Fun) ->
  