anchor.diff:                      end
                  end;
           Error ->
  -            progress(Prefix ++ " ~p~n", [Error]),
  +            progress(Prefix ++ " ~.0p~n", [Error]),
               Error
       end.
   
  
positive.code:     try Module:Func(Args)
      catch error:undef ->
              FlatPrefix = lists:flatten(Prefix),
              progress(FlatPrefix ++ "~p provides no ~p/1 function. Fall back to normal supervisor startup here.~n", [Module, Func]),
              DefaultReturnValue;
            X:Y ->
              io:format("~p:~p failed with ~p:~p ~p~n",
                        [Module, Func, X, Y, util:get_stacktrace()]),
              DefaultReturnValue
      end.
  
negative.code:             SupRef = element(2, X),
              case SupSpec of
                  unknown_supspec ->
                      progress(PipePrefix ++ "started childs at ~.0p:~n",
                               [SupRef]),
                      show_started_childs(PipePrefix ++ ["+-"], SupRef),
                      Res;
                  _ ->
                      progress(PipePrefix
                               ++ "~.0p ~.0p", [SupSpec, SupRef]),
                      Childs = trycall(PipePrefix, Module, childs, Args, []),
                      ChildsRes = add_childs(PipePrefix ++ ["+-"], SupRef, Childs),
                      if is_tuple(ChildsRes) andalso element(1, ChildsRes) =:= ok ->
                             Res; %% return pid of supervisor as it may be linked to externally;
                         true ->
                             io:format("Startup raised ~.0p.~n", [ChildsRes]),
                             SupName = element(1, SupAsChild),
                             sup_terminate_childs(SupRef),
                             _ = supervisor:terminate_child(AtSup, SupName),
  