anchor.diff:    case tuple_size(Tup) of
       L when L < 1 -> Tup;
       L ->
  -      Fields = safer(M,rec_info,[element(1,Tup)],[]),
  +      #ld{cld=Fields} = safer(#ld{mod=M,cld=[]},rec_info,[element(1,Tup)]),
         case L == length(Fields)+1 of
   	false-> list_to_tuple(expand_recs(M,tuple_to_list(Tup)));
   	true -> expand_recs(M,lists:zip(Fields,tl(tuple_to_list(Tup))))
  
positive.code: -export([start/1
           , start/2
           , stop/1
           , print_state/1]).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% gen_server boiler plate
  
  -behaviour(gen_server).
  -export([handle_call/3
           , handle_cast/2
  
negative.code:          , terminate/2
           , code_change/3]).
  
  -include_lib("eper/src/log.hrl").
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% the API
  
  