anchor.diff:                      NewChildList;
                   true ->
                       {ok, NewPid} = apply(M,F,A),
  -                    [{NewPid, {M,F,A,Type,[ts()|NewRestartTs]}}|NewChildList]
  +                    [{NewPid, {M,F,A,Type,[ts()|NewRestartTs]}, Id}|NewChildList]
               end
       end.
   
  
positive.code: %% child, replacing its entry in the list of children stored in the ChildList variable:
  
  restart_child(Pid, ChildList) ->
      {value, {Pid, {M,F,A,Type,RestartTs}}} = lists:keysearch(Pid, 1, ChildList),
      NewChildList = lists:keydelete(Pid,1,ChildList),
      case Type of
           transient -> NewChildList;
  
negative.code: %%   (c) Francesco Cesarini and Simon Thompson
  
  -module(my_supervisor).
  -export([start_link/2, stop/1, info/1, start_child/2, stop_child/2]).
  -export([init/1]).
  
  start_link(Name, ChildSpecList) ->
  