anchor.diff:      validIntensity(MaxIntensity),
       validPeriod(Period),
       {ok, #state{name = supname(SupName,Mod),
  -	       strategy = Strategy,
  -	       intensity = MaxIntensity,
  -	       period = Period,
  -	       module = Mod,
  -	       args = Args}};
  +		strategy = Strategy,
  +		intensity = MaxIntensity,
  +		period = Period,
  +		module = Mod,
  +		args = Args}};
   init_state1(_SupName, Type, _, _) ->
       {invalid_type, Type}.
   
  
positive.code: 
  validIntensity(Max) when is_integer(Max),
                           Max >=  0 -> true;
  validIntensity(What)              -> throw({invalid_intensity, What}).
  
  validPeriod(Period) when is_integer(Period),
                           Period > 0 -> true;
  validPeriod(What)                   -> throw({invalid_period, What}).
  
  supname(self,Mod) -> {self(),Mod};
  supname(N,_)      -> N.
  
  %%% ------------------------------------------------------
  %%% Check that the children start specification is valid.
  %%% Shall be a six (6) tuple
  %%%    {Name, Func, RestartType, Shutdown, ChildType, Modules}
  %%% where Name is an atom
  %%%       Func is {Mod, Fun, Args} == {atom, atom, list}
  %%%       RestartType is permanent | temporary | transient
  %%%       Shutdown = integer() | infinity | brutal_kill
  %%%       ChildType = supervisor | worker
  %%%       Modules = [atom()] | dynamic
  %%% Returns: {ok, [#child]} | Error
  %%% ------------------------------------------------------
  
  check_startspec(Children) -> check_startspec(Children, []).
  
negative.code: 	    update_childspec1(OldC, Children, [Child|KeepOld])
      end;
  update_childspec1([], Children, KeepOld) ->
      %% Return them in (kept) reverse start order.
      lists:reverse(Children ++ KeepOld).  
  
  update_chsp(OldCh, Children) ->
  