anchor.diff:      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),
  +    ?IN_RANGE(2, Sproc6, 3),
  +    ?IN_RANGE(2, Sprt6, 6),
   
       process_flag(scheduler, 0),
   
       Port2 ! {self(), close},
       receive {Port2, closed} -> ok end,
       ok.
  +
   
   wait_command_msgs(_, 0) ->
       ok;
  
positive.code:     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,
  
      "disabled" = port_control(Port, $D, ""),
      Proc2 = spawn_link(fun () ->
  
negative.code:     Proc2 ! Go,
      wait_command_msgs(Port, 10),
      [{Port, Sprt2}, {Proc2, Sproc2}] = count_pp_sched_stop([Port, Proc2]),
      ?IN_RANGE(10, Sprt2, 10),
      ?IN_RANGE(1, Sproc2-10, 2),
  
      "enabled" = port_control(Port, $E, ""),
      Proc3 = spawn_link(fun () ->
  