anchor.diff:    print_bugs_message();
   cl_usage(Name) ->
     Optname =
  -    case lists:keyfind(Name, 1, options()) of
  +    case lists:keyfind(Name, ?OPTION_KEY, options()) of
         false ->
           Str = atom_to_list(Name),
           Name =/= undefined andalso
             length(Str) =:= 1 andalso
  -          lists:keyfind(hd(Str), 2, options());
  +          lists:keyfind(hd(Str), ?OPTION_SHORT, options());
         R -> R
       end,
     case Optname of
  
positive.code:      {Key, Short, Type, Help, _Long} ->
         {Key, Short, atom_to_list(Key), Type, Help}
     end || Option <- Options].
  
  options() ->
    [{module, $m, atom,
  
negative.code:     Tuple ->
        getopt:usage(getopt_spec([Tuple]), "./concuerror"),
        try
          element(?OPTION_GETOPT_LONG_HELP, Tuple)
        of
          String -> to_stderr(String ++ "~n", [])
        catch
  