--- a/Socket.st	Thu Aug 03 03:24:24 1995 +0200
+++ b/Socket.st	Thu Aug 03 05:30:04 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.24 1995-08-03 01:24:24 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.25 1995-08-03 03:30:04 claus Exp $
 '!
 
 !Socket class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.24 1995-08-03 01:24:24 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.25 1995-08-03 03:30:04 claus Exp $
 "
 !
 
@@ -1353,7 +1353,6 @@
     struct sockaddr_in sa ;
     int alen;
     struct hostent *he ;
-    long norder ;
     char dotted[20] ;
 
     alen = sizeof(sa) ;
@@ -1380,6 +1379,8 @@
     if (_INST(domain) == @symbol(inet)) {
 	he = gethostbyaddr((char *) &sa.sin_addr.s_addr, alen, AF_INET) ;
 	if (! he) {
+    	    unsigned long norder;
+
 	    norder = htonl(sa.sin_addr.s_addr) ;
 	    sprintf(dotted, "%d.%d.%d.%d",
 		    (norder >> 24) & 0xFF,
@@ -1714,7 +1715,7 @@
     char *cp;
     int _flags = 0;
     int offs, nBytes;
-    long norder ;
+    unsigned long norder;
 
     _flags = __longIntVal(flags);