anchor.diff:  							% 						headersin = Headers, postbody = Body, connopts = ConnOpts1, callback = Callback,
   							% 						tofile = Tofile, tofilename = Tofilename}));
   						ok ->
  -							{ok,Info} = file:read_file_info(P#httpr.fromfile),
  +							{ok,Info} = prim_file:read_file_info(P#httpr.fromfile),
   							Sendfun = fun(Fun,F) ->
   										case file:read(F,1024*1024) of
   											{ok,Fileb} ->
  -												{ok,Info2} = file:read_file_info(P#httpr.fromfile),
  +												{ok,Info2} = prim_file:read_file_info(P#httpr.fromfile),
   												case Info2#file_info.mtime == Info#file_info.mtime of
   													true ->
   														ok = gen_tcp:send(Sock,Fileb);
  
positive.code: 	end.
  	
  file_age(Path) when is_list(Path) ->
  	{ok,I} = file:read_file_info(Path),
  	file_age(I);
  file_age(I) ->
  	Now = calendar:datetime_to_gregorian_seconds(erlang:localtime()),
  
negative.code: 			binary_to_term(Bin)
  	end.
  readbinfile(Path) ->
  	case prim_file:read_file(Path) of
  		{ok,<<Crc:32/unsigned,Body/binary>>} ->
  			case erlang:crc32(Body) of
  				Crc ->
  