anchor.diff:      case file:open(File, []) of
   	{ok,Epp} ->
   	    Forms = parse_non_preprocessed_file(Epp, File, 1),
  -	    file:close(Epp),
  +	    ok = file:close(Epp),
   	    {ok,Forms};
   	Error = {error,_E} ->
   	    Error
  
positive.code: %% line of last expression in function found
  build_html(SFd,DFd,Enc,{ok,Str},LastL,FuncsAndCs,_IsFuncDef,{F,LastL}) ->
      LastLineLink = test_server_ctrl:uri_encode(F++"-last_expr",utf8),
  	    file:write(DFd,["<a name=\"",
  			    to_raw_list(LastLineLink,Enc),"\"/>"]),
      build_html(SFd,DFd,Enc,{ok,Str},LastL,FuncsAndCs,true,undefined);
  %% function start line found
  build_html(SFd,DFd,Enc,{ok,Str},L0,[{F,A,L0,LastL}|FuncsAndCs],
  	   _IsFuncDef,_FAndLastL) ->
      FALink = test_server_ctrl:uri_encode(F++"-"++integer_to_list(A),utf8),
      file:write(DFd,["<a name=\"",to_raw_list(FALink,Enc),"\"/>"]),
      build_html(SFd,DFd,Enc,{ok,Str},L0,FuncsAndCs,true,{F,LastL});
  build_html(SFd,DFd,Enc,{ok,Str},L,[{clause,L}|FuncsAndCs],
  	   _IsFuncDef,FAndLastL) ->
  
negative.code: 		{ok,SFd} ->
  		    case file:open(Dest,[write,raw]) of
  			{ok,DFd} ->
  			    ok = file:write(DFd,[Header,"<pre>\n"]),
  			    _Lines = build_html(SFd,DFd,encoding(File),Functions),
  			    ok = file:write(DFd,["</pre>\n",footer(),
  					    "</body>\n</html>\n"]),
  			    %% {_, Time2} = statistics(runtime),
  			    %% io:format("Converted ~p lines in ~.2f Seconds.~n",
  			    %% 	      [_Lines, Time2/1000]),
  			    ok = file:close(SFd),
  			    ok = file:close(DFd),
  			    ok;
  			Error ->
  			    Error
  