anchor.diff:  system_code_change(Cp, _Module, _OldVsn, _Extra) ->
       {ok, Cp}.
   
  -convert_cp_record(Cp) when is_record(Cp, checkpoint) ->
  -    ROD = 
  -	case Cp#checkpoint.ram_overrides_dump of
  -	    true -> Cp#checkpoint.min ++ Cp#checkpoint.max;
  -	    false -> []
  -	end,
  -
  -    {ok, #checkpoint_args{name = Cp#checkpoint.name,
  -			  allow_remote = Cp#checkpoint.name,
  -			  ram_overrides_dump = ROD,
  -			  nodes = Cp#checkpoint.nodes,
  -			  node = Cp#checkpoint.node,
  -			  now = Cp#checkpoint.now,
  -			  cookie = ?unique_cookie,
  -			  min = Cp#checkpoint.min,
  -			  max = Cp#checkpoint.max,
  -			  pending_tab = Cp#checkpoint.pending_tab,
  -			  wait_for_old = Cp#checkpoint.wait_for_old,
  -			  is_activated = Cp#checkpoint.is_activated,
  -			  ignore_new = Cp#checkpoint.ignore_new,
  -			  retainers = Cp#checkpoint.retainers,
  -			  iterators = Cp#checkpoint.iterators,
  -			  supervisor = Cp#checkpoint.supervisor,
  -			  pid = Cp#checkpoint.pid
  -			 }};
  -convert_cp_record(Cp) when is_record(Cp, checkpoint_args) ->
  -    AllTabs = Cp#checkpoint_args.min ++ Cp#checkpoint_args.max,
  -    ROD = case Cp#checkpoint_args.ram_overrides_dump of
  -	      [] -> 
  -		  false;
  -	      AllTabs -> 
  -		  true;
  -	      _ -> 
  -		  error
  -	  end,
  -    if
  -	ROD == error ->
  -	    {error, {"Old node cannot handle new checkpoint protocol",
  -		     ram_overrides_dump}};
  -	true ->
  -	    {ok, #checkpoint{name = Cp#checkpoint_args.name,
  -			     allow_remote = Cp#checkpoint_args.name,
  -			     ram_overrides_dump = ROD,
  -			     nodes = Cp#checkpoint_args.nodes,
  -			     node = Cp#checkpoint_args.node,
  -			     now = Cp#checkpoint_args.now,
  -			     min = Cp#checkpoint_args.min,
  -			     max = Cp#checkpoint_args.max,
  -			     pending_tab = Cp#checkpoint_args.pending_tab,
  -			     wait_for_old = Cp#checkpoint_args.wait_for_old,
  -			     is_activated = Cp#checkpoint_args.is_activated,
  -			     ignore_new = Cp#checkpoint_args.ignore_new,
  -			     retainers = Cp#checkpoint_args.retainers,
  -			     iterators = Cp#checkpoint_args.iterators,
  -			     supervisor = Cp#checkpoint_args.supervisor,
  -			     pid = Cp#checkpoint_args.pid
  -			    }}
  -    end.
  -
   %%%%%%%%%%%%%%%%%%%%%%%%%%
   
   val(Var) ->
  
positive.code: 
  	{system, From, Msg} ->
  	    dbg_out("~p got {system, ~p, ~p}~n", [?MODULE, From, Msg]),
  	    sys:handle_system_msg(Msg, From, no_parent, ?MODULE, [], Cp)
      end.
  
  maybe_activate(Cp)
          when Cp#checkpoint_args.wait_for_old == [],
               Cp#checkpoint_args.is_activated == false ->
      Cp#checkpoint_args{pending_tab = undefined, is_activated = true};
  maybe_activate(Cp) ->
      Cp.
  
negative.code: 	    start_retainer(Cp);
  	true ->
  	    {error, {already_exists, Name, node()}}
      end.
  
  tm_mnesia_down(Node) ->
  