anchor.diff:      Fun = get_arg_and_result_type(FunType, FeederFunType, Options),
       {var_fun, VarList, {'fun', ArgType, ResultType}} = Fun,
       Size = 30,
  -    GenArgs = tryToCreateValue(VarList, ArgType, Size, TypeInfos),
  +    GenArgs = try
  +               {ok, tester_value_creator:create_value({var_type, VarList, ArgType},
  +                                                      Size, TypeInfos)}
  +           catch
  +               Error:{error, Reason} ->
  +                   print_error(Reason),
  +                   %ct:pal("Reason: ~p~n", [Reason]),
  +                   {fail, {fail, no_result, no_result_type, Error, tester_value_creator,
  +                           create_value,
  +                           [ArgType, Size, typeInfos], %TypeInfos
  +                           Reason, util:get_stacktrace(), util:get_linetrace()}}
  +           end,
       case GenArgs of
           {ok, Args} ->
               case proplists:get_bool(with_feeder, Options) of
  
positive.code:             ErrorDesc
      end.
  
  -ifdef(have_new_stacktrace).
  % @doc called before the actual test to convert the input values. Can
  % be used to implement types which cannot be expressed by type-specs
  apply_feeder(Module, Func, Args, ResultType, TypeInfos) ->
  
negative.code:                  util:get_stacktrace(), util:get_linetrace()}
          end
      catch
          Error:Reason ->
              ct:pal("Reason: ~p~n", [Reason]),
              {fail, no_result, no_result_type, Error, Module,
               FeederFun,
               Args,
               Reason, util:get_stacktrace(), util:get_linetrace()}
      end.
  
  apply_args(Module, Func, Args, ResultType, TypeInfos, Thread) ->
  