anchor.diff:      %% test check_for_loop(Header, URI, Origin)
       %% indirectly test via_indicates_loop(LoopCookie, CmpVia, ViaList)
       %%--------------------------------------------------------------------
  -    Me = lists:concat([MyHostname, ":", SipLPort]),
  +    Me = lists:concat([MyHostname, ":", SipPort]),
   
       io:format("test: check_for_loop/2 - 1~n"),
       LoopHeader1 = keylist:set("Via", ["SIP/2.0/TLS example.org:1234",
  
positive.code: 				     {"Call-ID",	["abc123@test"]},
  				     {"Route",	["<sip:p1:1111>", "<sip:p2:2222>"]}
  				    ]),
      MyRoute = contact:parse(["<sip:" ++ MyHostname ++ ":" ++ integer_to_list(SipLPort) ++ ">"]),
      MyRouteStr = contact:print(MyRoute),
  
      MyRoute2 = contact:parse(["<sip:" ++ siphost:myip() ++ ":" ++ integer_to_list(SipLPort) ++ ">"]),
      MyRouteStr2 = contact:print(MyRoute2),
  
      %% port should not match me
  
negative.code: 	P when integer(P) ->
  	    P;
  	none ->
  	    siprequest:default_port(Proto, none)
      end;
  get_listenport(Proto) ->
      case sipserver:get_env(listenport, none) of
  	P when integer(P) ->
  	    P;
  	none ->
  	    siprequest:default_port(Proto, none)
      end.
  
  %% In some places, we need to get a list of all ports which are valid for this proxy.
  