anchor.diff:  
   %% @doc Read a chunk of data of size `Size' from `File' at `Offset'.
   
  -read_chunk(PidSpec, File, Offset, Size, Timeout) ->
  -    gen_server:call(PidSpec, {req, {read_chunk, File, Offset, Size}},
  +read_chunk(PidSpec, File, Offset, Size, Timeout0) ->
  +    {TO, Timeout} = timeout(Timeout0),
  +    gen_server:call(PidSpec, {req, {read_chunk, File, Offset, Size, TO}},
                       Timeout).
   
   %% @doc Fetch the list of chunk checksums for `File'.
  
positive.code:             false
      end.
  
  do_write_head(File, Offset, Chunk, 0=Depth, STime, S) ->
      do_write_head2(File, Offset, Chunk, Depth + 1, STime, S);
  do_write_head(File, Offset, Chunk, Depth, STime, #state{proj=P}=S) ->
      %% io:format(user, "head sleep1,", []),
      sleep_a_while(Depth),
      DiffMs = timer:now_diff(os:timestamp(), STime) div 1000,
      if DiffMs > ?MAX_RUNTIME ->
              {reply, {error, partition}, S};
         true ->
              %% This is suboptimal for performance: there are some paths
  
negative.code: 
  %% @doc Fetch the list of all files on the remote FLU.
  
  list_files(PidSpec, Timeout0) ->
      {TO, Timeout} = timeout(Timeout0),
      gen_server:call(PidSpec, {req, {list_files, TO}},
                      Timeout).
  
  %% @doc Quit &amp; close the connection to remote FLU and stop our
  