--- a/Socket.st	Wed Feb 25 19:56:38 1998 +0100
+++ b/Socket.st	Fri Feb 27 13:51:46 1998 +0100
@@ -720,6 +720,14 @@
 
 !Socket class methodsFor:'ST80 queries'!
 
+getHostname
+    "return the computers hostname string"
+
+    ^ OperatingSystem getHostName
+
+    "Created: / 27.2.1998 / 02:32:17 / cg"
+!
+
 sockStream
     "return the type code for stream sockets"
 
@@ -3994,5 +4002,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.102 1998-01-16 16:15:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.103 1998-02-27 12:51:46 cg Exp $'
 ! !