anchor.diff:  	    after 1 ->				% force context switch
   		    ok
   	    end
  -    after 30000 ->
  +    after Timeout ->
   	    case erl_epmd:names() of
   		{ok,Names} ->
   		    case is_testnode_dead(Names) of
  
positive.code:     ts_lib:progress(Vars, 1, "Command: ~s~n", [Command]),
      io:format(user, "Command: ~s~n",[Command]),
      Port = open_port({spawn, Command}, [stream, in, eof]),
      tricky_print_data(Port).
  
  tricky_print_data(Port) ->
      receive
  	{Port, {data, Bytes}} ->
  	    io:put_chars(Bytes),
  	    tricky_print_data(Port);
  	{Port, eof} ->
  	    Port ! {self(), close}, 
  	    receive
  
negative.code: 			    io:put_chars("WARNING: No EOF, but "
  					 "test_server node is down!\n");
  			false ->
  			    tricky_print_data(Port, Timeout)
  		    end;
  		_ ->
  		    tricky_print_data(Port, Timeout)
  	    end
      end.
  
  