anchor.diff:          end,
         case Value of
           infinity ->
  -          process_options(Rest, [Option|Acc]);
  +          fix_infinities(Rest, [Option|Acc]);
           -1 ->
  -          process_options(Rest, [{MaybeInfinity, infinity}|Acc]);
  +          fix_infinities(Rest, [{MaybeInfinity, infinity}|Acc]);
           N when is_integer(N), N >= Limit ->
  -          process_options(Rest, [Option|Acc]);
  +          fix_infinities(Rest, [Option|Acc]);
           _Else ->
             Error = "The value of '--~s' must be -1 (infinity) or >= ~w",
             opt_error(Error, [Key, Limit], Key)
         end;
       _ ->
  -      process_options(Rest, [Option|Acc])
  +      fix_infinities(Rest, [Option|Acc])
     end.
   
   %%------------------------------------------------------------------------------
  
positive.code:     , fun add_derived_defaults/1
      , fun add_getopt_defaults/1
      , fun group_multiples/1
      , fun process_options/1
      , fun(O) ->
            add_defaults([{Opt, []} || Opt <- groupable()], false, O)
        end
  
negative.code: 
  %%------------------------------------------------------------------------------
  
  fix_infinities(Options) ->
    fix_infinities(Options, []).
  
  fix_infinities([], Acc) -> lists:reverse(Acc);
  fix_infinities([{Key, Value} = Option|Rest], Acc) ->
    case Key of
      MaybeInfinity
        when
  