anchor.diff:  % 	Result ->
   % 	    fetch_DTD(Result,S)
   %     end.
  -    
  +
   
   %%%%%%% [68] EntityReference
   
  
positive.code:     S;
  % fetch_DTD(_,S=#xmerl_scanner{validation=false}) ->
  %     S;
  fetch_DTD(DTDSpec, S)-> 
      case fetch_and_parse(DTDSpec,S,[{text_decl,true},
  				    {environment,{external,subset}}]) of
  	NewS when is_record(NewS,xmerl_scanner) ->
  
negative.code: 	{ok, DataRet, NewS} ->
  	    {String,LocationName} =
  		case DataRet of
  		    {file,F} ->
  			{get_file(F,S),F};
  		    {string,Str} ->
  			{binary_to_list(Str),file_name_unknown};
  