anchor.diff:        case file:read_line(Iod) of
           { ok, Data } -> 
             case erl_scan:string(Data) of
  -            { ok,Tokens,_ } ->
  +            { ok, Tokens, _ } ->
                 case erl_parse:parse_term(Tokens) of
                   { ok, { Now, User, Text } } ->
                     case re:run(Text, SearchString, [{ capture, none }, caseless]) of
  
positive.code: 
  
  % Continue searching through the archived files for a channel.
  
  search_archive_files(ResultList, First, Created, Channel, RowsBack, SearchString) ->
    if
      length(ResultList) == RowsBack ->
  %     error_logger:info_msg("DEBUG: Search complete (1): ~p ~p ~p ~p~n", [ First, Created, length(ResultList), RowsBack ]),
        ResultList
        ;
  
negative.code:           file:close(Iod),
            lists:reverse(FileLines)
            ;
          { error, _Reason } ->
  %         error_logger:warning_msg("Error: Open of archive ~p failed: ~p~n", [ ArchiveName, Reason ]),
            []
        end,
  
        NewFst = subtract_time(First, 86400000000),
  
        if
          NewFst < Created ->
  