From b5f51d58f1f37e2599ceb83e5af67e9c9b18f098 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Fri, 3 Jun 2022 18:32:36 -0700
Subject: [PATCH] Correct missing htons() on port number for TCPop connect

---
 src/inet.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/inet.c b/src/inet.c
index a8ac5d8..591cb63 100644
--- a/src/inet.c
+++ b/src/inet.c
@@ -127,7 +127,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
       sock = LispNumToCInt(proto);
       result = socket(AF_INET, SOCK_STREAM, 0);
       farend.sin_family = AF_INET;
-      farend.sin_port = sock;
+      farend.sin_port = htons(sock);
       if (connect(result, (struct sockaddr *)&farend, sizeof farend) < 0) {
         perror("TCP connect");
         return (NIL);