anchor.diff:  %% Descrip.: determine if Str is a memeber of StrList
   %% Returns : true | false
   %%--------------------------------------------------------------------
  -casegrep(String1,[]) ->
  +casegrep(_String1, []) ->
       false;
  -casegrep(String1,[String2 | Rest]) ->
  -    case casecompare(String1,String2) of
  +casegrep(String1, [String2 | Rest]) ->
  +    case casecompare(String1, String2) of
   	true ->
   	    true;
   	_ ->
  -	    casegrep(String1,Rest)
  +	    casegrep(String1, Rest)
       end.
   
   %%--------------------------------------------------------------------
  
positive.code: %% XXX badly chosen function name - I mostly associate this name with
  %% functions that add a element to a list - hsten
  %%--------------------------------------------------------------------
  concat([], Separator) ->
      [];
  concat([A | B], Separator) ->
      A ++ Separator ++ concat(B, Separator).
  
negative.code: %%--------------------------------------------------------------------
  casecompare(none, none) ->
      true;
  casecompare(none, _String) ->
      false;
  casecompare(_String, none) ->
      false;
  casecompare(String1, String2) ->
      S1 = httpd_util:to_lower(String1),
  