anchor.diff:      ?P("~w -> entry with"
          "~n      Config: ~p"
          "~n      Nodes:  ~p", [?FUNCTION_NAME, Config, nodes()]),
  +    Cond = fun() ->
  +                   case lists:keysearch(kernel_factor, 1, Config) of
  +                       %% Only run this on machines that are "fast enough"...
  +                       {value, {kernel_factor, Factor}}
  +                         when (Factor =< ?OTP_3924_MIN_FACTOR) ->
  +                           ?P("~w:condition -> "
  +                              "*fast* enough (~w)", [?FUNCTION_NAME, Factor]),
  +                           ok;
  +                       _ ->
  +                           ?P("~w:condition -> "
  +                              "*not* fast enough", [?FUNCTION_NAME]),
  +                           {skip, "Too slow for this test"}
  +                   end
  +           end,
       Pre = fun() ->
                     ?P("~w:pre -> calculate max delay", [?FUNCTION_NAME]),
                     MaxDelay = (case has_superfluous_schedulers() of
  
positive.code:                    ?P("~w:post -> try stop node ~p", [?FUNCTION_NAME, Node]),
                     ?STOP_NODE(Node)
             end,
      ?TC_TRY(?FUNCTION_NAME, Pre, TC, Post).
  
  do_otp_3924(Config, Node, MaxDelay) ->
      DataLen = 100*1024,
  
negative.code: 	    if
  		NewAccLen == Len ->
  		    {ok, TRef} = timer:exit_after(MaxDelay,
                                                    self(),
                                                    TimeoutRef),
  		    {error, closed} = gen_tcp:recv(Sock, 0),
  		    timer:cancel(TRef),
  		    lists:flatten([Acc, Data]);
  