# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1042064172 0
# Node ID 938f153410ae2068ec211130a476a3c633675f13
# Parent  86ce50c64d8480fd1549b30dea957e033e33a0cc
(Fmake_network_process): Convert new port number
to host byte order for `:service t' case.  From Mario Lang.

diff -r 86ce50c64d84 -r 938f153410ae src/process.c
--- a/src/process.c	Wed Jan 08 22:14:55 2003 +0000
+++ b/src/process.c	Wed Jan 08 22:16:12 2003 +0000
@@ -2974,7 +2974,7 @@
 	      if (getsockname (s, (struct sockaddr *)&sa1, &len1) == 0)
 		{
 		  ((struct sockaddr_in *)(lres->ai_addr))->sin_port = sa1.sin_port;
-		  service = make_number (sa1.sin_port);
+		  service = make_number (ntohs (sa1.sin_port));
 		  contact = Fplist_put (contact, QCservice, service);
 		}
 	    }