diff --git a/Error-log b/Error-log
index 338bf57..5894b1d 100644
--- a/Error-log
+++ b/Error-log
@@ -57,3 +57,6 @@ Reported by Sean Doran 29 Jul 96. Fixed by bdc 1 Oct 96.
 
 exportlist.aix generated correctly on aix 4 now
 Reported by Michael Becker 2 June 96. Fix by Michael Sperber 2 Oct 96.
+
+service-info using a port number is broken for little endian machines
+Reported by Jin S. Choi 3 Oct 1996. Fixed by bdc 3 Oct 96.
diff --git a/scsh/network1.c b/scsh/network1.c
index 0883f4e..8e093dd 100644
--- a/scsh/network1.c
+++ b/scsh/network1.c
@@ -485,7 +485,7 @@ int scheme_serv_port2serv_info(int in_port,
 {
   struct servent *serv;
 
-  serv=getservbyport(in_port,in_proto);
+  serv=getservbyport(ntohs(in_port),in_proto);
   
   if(serv==NULL)
     {