anchor.diff:  -spec sup_start(sup_name(), module(), term()) -> startlink_ret().
   sup_start(Supervisor, Module, Options) ->
       InitialPrefix = "+",
  -    sup_start([InitialPrefix], Supervisor, Module, Options).
  +    Ret = sup_start([InitialPrefix], Supervisor, Module, Options),
  +    progress("~n"),
  +    Ret.
   
   -spec sup_start(prefix(),
                   sup_name() | no_name, module(), term())
                  -> startlink_ret().
   sup_start(Prefix, Supervisor, Module, Options) ->
  -    progress(Prefix ++ "~p ~p.erl~n", [Supervisor, Module]),
  +    progress(Prefix ++ "~.0p ~.0p.erl~n", [Supervisor, Module]),
       SupSpec = trycall(Prefix, Module, supspec, Options, unknown_supspec),
       Res = case Supervisor of
                 no_name -> supervisor:start_link(Module, Options);
                 _ -> supervisor:start_link(Supervisor, Module, Options)
             end,
  -    progress(Prefix ++ "~p done~n", [Supervisor]),
  +    progress(Prefix ++ "~.0p done~n", [Supervisor]),
       case Res of
           {ok, SupRef} ->
  -            progress(Prefix ++ "`-~p ~p~n", [SupSpec, SupRef]),
  +            progress(Prefix ++ "`-~.0p ~.0p", [SupSpec, SupRef]),
               Childs = trycall(Prefix, Module, childs, Options, []),
               ChildPrefix = last_prefix_to_space(Prefix),
               ChildsRes = add_childs(ChildPrefix ++ ["  +-"], 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 ~p.~n", [ChildsRes]),
  +                   io:format("Startup raised ~.0p.~n", [ChildsRes]),
                      sup_terminate(SupRef),
                      ChildsRes
               end;
  
positive.code:                     end
                 end;
          Error ->
              progress(Prefix ++ " ~p~n", [Error]),
              Error
      end.
  
  
negative.code:                          supervisor:child_spec())
                 -> supervisor:startchild_ret().
  start_sup_as_child(Prefix, AtSup, SupAsChild) ->
      progress(Prefix ++ "supervisor ~.0p ~.0p",
               [element(1, SupAsChild), element(2, SupAsChild)]),
      Module = element(1, element(2, SupAsChild)),
      Args = element(3, element(2, SupAsChild)),
  