diff --git a/scsh/network1.c b/scsh/network1.c
index ceb0526..a424d75 100644
--- a/scsh/network1.c
+++ b/scsh/network1.c
@@ -193,7 +193,7 @@ s48_value scheme_accept(s48_value sockfd_tagged, s48_value family)
     }
 }
 
-s48_value make_addr (long net_s_addr, int net_s_port)
+s48_value make_addr (unsigned long net_s_addr, int net_s_port)
 {
   s48_value result, sock_addr;
   S48_DECLARE_GC_PROTECT(2);
@@ -282,7 +282,7 @@ recv_substring(s48_value scm_sockfd, s48_value flags, s48_value buf,
   if (cc >= 0)
     return (s48_cons (s48_enter_fixnum (cc), 
 		      s48_cons (make_addr (name.sin_addr.s_addr,
-					   htonl((u_long)ntohs(name.sin_port))),
+					   name.sin_port),
 				S48_NULL)));