anchor.diff:  	{true, Pid} ->
   	    Pid ! Message,
   	    ok;
  -	{false, Pid} when list(LogTag) ->
  +	{false, Pid} when is_list(LogTag) ->
   	    logger:log(error, LogTag ++ "Can't send signal ~p to pid ~p - not alive or not pid", [Message, Pid]),
   	    error;
   	{false, Pid} ->
  
positive.code: apply_rewrite([C | Rest], List) ->
      [C | apply_rewrite(Rest, List)].
  
  regexp_rewrite(Input, []) ->
      nomatch;
  
  regexp_rewrite(Input, [{Regexp, Rewrite} | Rest]) ->
      case group_regexp:groups(Input, Regexp) of
  	{match, List} ->
  	    apply_rewrite(Rewrite, List);
  	nomatch ->
  	    regexp_rewrite(Input, Rest);
  	{error, Error} ->
  	    logger:log(normal, "Error in regexp ~p: ~p", [Regexp, Error]),
  	    []
      end.
  
  casecompare(none, none) ->
      true;
  
negative.code: 
  sec_to_date(never) ->
      "never";
  sec_to_date(Seconds) when is_integer(Seconds) ->
      Nowtime = {Seconds div 1000000, Seconds rem 1000000, 0},
      lists:flatten(localtime_to_string(calendar:now_to_local_time(Nowtime))).
  
  