anchor.diff:      ErrList = [ case lists:member(X, ExpFuncs) of
                       true -> true;
                       false ->
  -                        ct:pal("Excluded non exported function ~p:~p~n", [Module,X]),
  +                        ct:pal("Excluded non exported function ~p:~p", [Module,X]),
                           false
                   end ||
                     X <- ExcludeList ],
  
positive.code: 
      PrivateFuns = [ X || X <- AllFuns, not lists:member(X, ExportedFuns)],
  
      ct:pal("*** Private funs of ~p:~n~.0p~n", [Module, PrivateFuns]),
  
      %% only excluded existing functions?
      ErrList = [ case lists:member(X, PrivateFuns) of
  
negative.code:                   lists:flatten(ResList)) of
          true -> ok;
          _ ->
              ct:pal("Excluded all exported functions for module ~p?!",
                     [Module]),
              catch ct:comment("Excluded all exported functions for module ~p?!",
                               [Module]),
              ok
      end,
  