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