anchor.diff:      Proc1 ! Go,
       wait_command_msgs(Port, 10),
       [{Port, Sprt1}, {Proc1, Sproc1}] = count_pp_sched_stop([Port, Proc1]),
  -    case Sprt1 of
  -	10 ->
  -	    true = in_range(5, Sproc1-10, 7);
  -	_ ->
  -	    case erlang:system_info(lock_checking) of
  -		true -> ?t:format("Ignore bad sched count due to lock checking", []);
  -		false -> ?t:fail({unexpected_sched_counts, Sprt1, Sproc1})
  -	    end
  -    end,
  +    ?IN_RANGE(10, Sprt1, 10),
  +    ?IN_RANGE(5, Sproc1-10, 7),
   
       "disabled" = port_control(Port, $D, ""),
       Proc2 = spawn_link(fun () ->
  
positive.code:     wait_procs_exit([W6, Proc6]),
      wait_command_msgs(Port2, 10),
      [{Port2, Sprt6}, {Proc6, Sproc6}] = count_pp_sched_stop([Port2, Proc6]),
      true = in_range(2, Sproc6, 3),
      true = in_range(3, Sprt6, 6),
  
      process_flag(scheduler, 0),
  
      Port2 ! {self(), close},
      receive {Port2, closed} -> ok end,
      ok.
  
  wait_command_msgs(_, 0) ->
      ok;
  
negative.code:     wait_procs_exit([W5, Proc5]),
      wait_command_msgs(Port2, 10),
      [{Port2, Sprt5}, {Proc5, Sproc5}] = count_pp_sched_stop([Port2, Proc5]),
      ?IN_RANGE(2, Sproc5, 3),
      ?IN_RANGE(6, Sprt5, 20),
  		  
      count_pp_sched_start(),
      "disabled" = port_control(Port2, $D, ""),
  