anchor.diff:  %-define(TRACE_BP(X,Y), ct:pal(X,Y)).
   -define(TRACE_BP(X,Y), ok).
   %% userdevguide-begin gen_component:trace_bp_steps
  -%-define(TRACE_BP_STEPS(X,Y), io:format(X,Y)). %% output on console
  -%-define(TRACE_BP_STEPS(X,Y), ct:pal(X,Y)).    %% output even if called by unittest
  +%-define(TRACE_BP_STEPS(X,Y), io:format(X,Y)).     %% output on console
  +%-define(TRACE_BP_STEPS(X,Y), ct:pal(X,Y)).        %% output even if called by unittest
  +%-define(TRACE_BP_STEPS(X,Y), io:format(user,X,Y)). %% clean output even if called by unittest
   -define(TRACE_BP_STEPS(X,Y), ok).
   %% userdevguide-end gen_component:trace_bp_steps
   
  
positive.code:                         false ->
                              case lists:keyfind(post_op, 1, Commands) of
                                  {post_op, Msg1} ->
                                      loop(Module, On, Msg1, NewState, TmpComponentState);
                                  false ->
                                      % let's fail since the Config list was either
  
negative.code:     Pid !  {'$gen_component', bp, breakpoint, step, self()},
      receive {'$gen_component', bp, breakpoint, step_done,
               _GCPid, Module, On, Message} ->
              ?TRACE_BP_STEPS("    Handler: ~p:~p/2~n"
                              "*** Handling done.~n",
                              [Module, On]),
              {Module, On, Message}
      end.
  
  