--- a/Socket.st	Wed May 26 17:34:40 1999 +0200
+++ b/Socket.st	Tue Jun 01 17:45:55 1999 +0200
@@ -1104,7 +1104,7 @@
         sa.sat_family = hp->h_addrtype;
     }
 
-    /* if the addressing family is not AF_APPLETALK, return nil */
+    /* if the addressing family is not AF_APPLETALK, Return nil */
     if (sa.sat_family != AF_INET) {
         DBGPRINTF(("SOCKET: not an appletalk host\n"));
         RETURN ( nil );
@@ -1164,7 +1164,7 @@
 	}
     }
 
-    /* if the addressing family is not AF_APPLETALK, return nil */
+    /* if the addressing family is not AF_APPLETALK, Return nil */
     if (sa.sat_family != AF_APPLETALK) {
 	RETURN ( nil );
     }
@@ -1218,7 +1218,7 @@
 	}
     }
 
-    /* if the addressing family is not AF_INET, return nil */
+    /* if the addressing family is not AF_INET, Return nil */
     if (sa.sin_family != AF_INET) {
 	RETURN ( nil );
     }
@@ -1228,7 +1228,7 @@
     }
 
     /*
-     * return it in dot-notation
+     * Return it in dot-notation
      */
     RETURN (__MKSTRING(inet_ntoa(sa.sin_addr)));
 #else
@@ -1279,7 +1279,7 @@
         }
     }
 
-    /* if the addressing family is not AF_INET, return nil */
+    /* if the addressing family is not AF_INET, Return nil */
     if (sa.sin_family != AF_INET) {
         DBGPRINTF(("SOCKET: not an internet host\n"));
         RETURN ( nil );
@@ -4082,5 +4082,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.116 1999-04-22 18:27:41 ah Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.117 1999-06-01 15:45:54 cg Exp $'
 ! !