anchor.diff:  no_nonlocal_kill(doc) ->
       ["Ensure that we cannot kill through nonlocal connection"];
   no_nonlocal_kill(Config) when is_list(Config) ->
  -    ?line case {os:find_executable("ssh"),ct:get_config(ssh_proxy_host)} of
  -	      {SSH,Name} when is_list(Name), is_list(SSH) ->
  -		  do_no_nonlocal_kill(Config,Name);
  -	      {false,_} ->
  -		  {skip, "No ssh command found to create proxy"};
  -	      _ ->
  -		  {skip, "No ssh_proxy_host configured in ts.config"}
  -	  end.
  +    case {os:find_executable("ssh"),ct:get_config(ssh_proxy_host)} of
  +        {SSH,Name} when is_list(Name), is_list(SSH) ->
  +            do_no_nonlocal_kill(Config,Name);
  +        {false,_} ->
  +            {skip, "No ssh command found to create proxy"};
  +        _ ->
  +            {skip, "No ssh_proxy_host configured in ts.config"}
  +    end.
   do_no_nonlocal_kill(Config,SSHHost) when is_list(Config) ->
  -    ?line ok = epmdrun(),
  -    ?line ProxyPort = proxy_port(),
  -    ?line ok = ssh_proxy(SSHHost,ProxyPort),
  +    ok = epmdrun(),
  +    ProxyPort = proxy_port(),
  +    ok = ssh_proxy(SSHHost,ProxyPort),
       Res = try
  -	      {ok, E} = connect("localhost",ProxyPort,passive),
  -	      M = [?EPMD_KILL_REQ],
  -	      send(E, [size16(M), M]),
  -	      closed = recv(E,2),
  -	      gen_tcp:close(E),
  -	      sleep(?MEDIUM_PAUSE),
  -	      {ok, E2} = connect("localhost",ProxyPort,passive),
  -	      gen_tcp:close(E2),
  -	      true
  -	  catch
  -	      _:_ ->
  -		  false
  -	  end,
  +              {ok, E} = connect("localhost",ProxyPort,passive),
  +              M = [?EPMD_KILL_REQ],
  +              send(E, [size16(M), M]),
  +              closed = recv(E,2),
  +              gen_tcp:close(E),
  +              sleep(?MEDIUM_PAUSE),
  +              {ok, E2} = connect("localhost",ProxyPort,passive),
  +              gen_tcp:close(E2),
  +              true
  +          catch
  +              _:_ ->
  +                  false
  +          end,
       %erlang:display(Res),
       true = Res,
       ok.
  
positive.code:     Name = gen_name(Prefix, I),
      Port = ?DUMMY_PORT + I,				% Just make it up
      case register_node(Name, Port) of
  	{ok,Sock} ->
  	    [{Name,Port,Sock} | register_many(I + 1, N, Prefix)];
  	Any ->
  	    test_server:format("Can't register: ~w of 1..~w ~w~n", 
  			       [Name,N,Any]),
  	    []
      end.
  
  unregister_many([]) ->
      ok;
  unregister_many([{Name,_Port,Sock} | Socks]) ->
      case close(Sock) of
  	ok ->
  	    unregister_many(Socks);
  	Any ->
  	    test_server:format("Can't unregister: ~w reason ~w~n", [Name,Any]),
  	    error
      end.
  
  gen_name(Str,Int) ->
  
negative.code:     ?PORT+1.
  
  ssh_proxy(SSHHost,ProxyPort) ->
      Host = lists:nth(2,string:tokens(atom_to_list(node()),"@")),
      % Requires proxy to be a unix host with the command 'read' accessible
      osrun("ssh -L "++integer_to_list(ProxyPort)++":"++Host++":"
            ++integer_to_list(?PORT)++" "++SSHHost++" read").
  
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  