--- a/SocketAddressInfo.st	Sun Aug 22 20:08:32 2004 +0200
+++ b/SocketAddressInfo.st	Sun Aug 22 20:09:08 2004 +0200
@@ -13,7 +13,8 @@
 "{ Package: 'stx:libbasic2' }"
 
 Object subclass:#SocketAddressInfo
-	instanceVariableNames:'domain type protocol socketAddress canonicalName flags'
+	instanceVariableNames:'domain type protocol socketAddress canonicalName flags
+		serviceName'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'OS-Sockets'
@@ -69,6 +70,16 @@
     protocol := something.
 !
 
+serviceName
+    ^ serviceName
+!
+
+serviceName:something
+    "service name is only used when raising an error"
+
+    serviceName := something.
+!
+
 socketAddress
     ^ socketAddress
 !
@@ -101,5 +112,5 @@
 !SocketAddressInfo class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddressInfo.st,v 1.4 2003-08-30 12:36:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddressInfo.st,v 1.5 2004-08-22 18:09:08 stefan Exp $'
 ! !