anchor.diff:  	    case wait_ack(Port) of
   		ok ->
   		    %% register port so the vm can find it if need be
  -		    register(heart_port, Port),
  +		    register(?HEART_PORT_NAME, Port),
   		    {ok, Port};
   		{error, Reason} ->
   		    report_problem({{port_problem, Reason},
  
positive.code: 
  -define(TIMEOUT, 5000).
  -define(CYCLE_TIMEOUT, 10000).
  
  %%---------------------------------------------------------------------
  
  
negative.code:     end.
  
  do_cycle_port_program(Caller, Parent, Port, Cmd) ->
      unregister(?HEART_PORT_NAME),
      case catch start_portprogram() of
  	{ok, NewPort} ->
  	    send_shutdown(Port),
  