anchor.diff:                }
         end,
         fun({VnodePid, ProxyPid}) ->
  -              {"should tolerate slow vnodes",
  +              {"should tolerate slow vnodes", timeout, 60,
                  fun() ->
                          VnodePid ! slow,
                          [ProxyPid ! hello || _ <- lists:seq(1, 50000)],
                          %% synchronize on the mailbox
  -                       Reply = gen:call(ProxyPid, '$vnode_proxy_call', sync),
  +                       Reply = gen:call(ProxyPid, '$vnode_proxy_call', sync, infinity),
                          ?assertEqual({ok, ok}, Reply),
                          %% check that the outstanding message count is
                          %% reasonable
  
positive.code:                end
                }
        end
       ]}.
  -endif.
  
negative.code:      end,
       [
        fun({VnodePid, ProxyPid}) ->
                {"should not discard in normal operation", timeout, 60,
                 fun() ->
                         [ProxyPid ! hello || _ <- lists:seq(1, 50000)],
                         %% synchronize on the mailbox
                         Reply = gen:call(ProxyPid, '$vnode_proxy_call', sync, infinity),
                         ?assertEqual({ok, ok}, Reply),
                         VnodePid ! {get_count, self()},
                         receive
  