anchor.diff:      ct:pal("*** Private funs of ~p:~n~.0p", [Module, PrivateFuns]),
   
       %% only excluded existing functions?
  -    ErrList = [ case lists:member(X, PrivateFuns) of
  -                    true -> true;
  -                    false ->
  -                        ct:pal("Excluded non existing private function ~p:~p~n", [Module,X]),
  -                        false
  -                end ||
  -                  X <- ExcludePrivate ],
  -    case lists:all(fun(X) -> X end, ErrList) of
  -        true -> ok;
  -        false -> throw(error)
  +    ErrList = [ {Module, X} || X <- ExcludePrivate,
  +                               not lists:member(X, PrivateFuns) ],
  +    case ErrList of
  +        [] -> ok;
  +        [_|_] ->
  +            ct:pal("Excluded non-existing private functions: ~p~n", [ErrList]),
  +            throw(error)
       end,
   
       _ = type_check_module_funs(Module, PrivateFuns, ExcludePrivate, Count),
  
positive.code: 
      ok.
  
  type_check_module_funs(Module, FunList, ExcludeList, Count) ->
      [ begin
            %% test all non excluded funs with std. settings
  
negative.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  -spec type_check_module(module(),
                          ExcludeExported::[{Fun::atom(), Arity::non_neg_integer()}],
                          ExcludePrivate::[{Fun::atom(), Arity::non_neg_integer()}],
                         Count::pos_integer()) -> ok.
  type_check_module(Module, ExcludeExported, ExcludePrivate, Count) ->
      ExpFuncs = Module:module_info(exports),
      ExcludeList = [{module_info, 0}, {module_info, 1} | ExcludeExported],
  
      %% only excluded exported functions?
      ErrList = [ {Module, X} || X <- ExcludeList,
                                 not lists:member(X, ExpFuncs) ],
      case ErrList of
          [] -> ok;
          [_|_] ->
              ct:pal("Excluded non-existing or non-exported functions: ~p~n", [ErrList]),
              throw(error)
      end,
  
      %% perform the actual tests
  