anchor.diff:  
   %% table names
   tab(L) ->
  -  T = list_to_existing_atom(L),
  -  case ets:info(T,size) of
  -    undefined -> throw({404,no_such_table});
  -    _ -> T
  +  try
  +    T = list_to_existing_atom(L),
  +    true = is_integer(ets:info(T,size)),
  +    T
  +  catch
  +    _:_ -> throw({404,no_such_table})
     end.
   
   gcall(What) ->
  
positive.code:   ?assertEqual({200,"true"},
                 rets_client:put(localhost,tibbe)),
    ?assertEqual({200,"true"},
                 rets_client:put(localhost,tibbe,aaa,"AAA")),
    ?assertEqual({200,"true"},
                 rets_client:put(localhost,tibbe,bbb,bBbB)),
    ?assertEqual({200,"true"},
  
negative.code: lelem("_") -> '_';
  lelem(E)   -> l2b(E).
  
  %% exporting keys
  elems_to_binary(T) ->
    list_to_binary(join(tuple_to_list(T),<<"/">>)).
  
  join([E],_) -> [E];
  join([E|R],D) -> [E,D|join(R,D)].
  
  %% importing keys
  binary_to_elems(B) ->
    string:tokens(binary_to_list(B),"/").
  
  