service-info broken for ports

["Jin S. Choi" <jsc@atype.com>]

service-info using a port number is broken for all little endian
machines.  Here's an example.  

(define si (service-info 25 "tcp"))
(service-info:name si)  ;; should be "smtp"
=> #f


Here's a fix:
----------------------------------------------------------------------
--- 1.3 1995/11/01 08:19:46
+++ network1.c  1996/10/03 15:53:22
@@ -485,7 +485,7 @@
 {
   struct servent *serv;
 
-  serv=getservbyport(in_port,in_proto);
+  serv=getservbyport(ntohs(in_port),in_proto);
   
   if(serv==NULL)
     {