--- a/SocketAddress.st	Fri Oct 17 11:22:40 2003 +0200
+++ b/SocketAddress.st	Fri Oct 17 18:43:03 2003 +0200
@@ -576,6 +576,38 @@
     s := WriteStream on:''.
     self printOn:s.
     ^ s contents.
+!
+
+printAddressOn:arg 
+    "raise an error: must be redefined in concrete subclass(es)"
+
+    ^ self subclassResponsibility
+!
+
+printOn:aStream
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
+
+    self printOn:aStream withPort:true
+!
+
+printOn:aStream withPort:withPort
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
+
+    self printAddressOn:aStream.
+    withPort ifTrue:[
+        self printPortOn:aStream.
+    ].
+!
+
+printPortOn:aStream 
+    |port|
+
+    (port := self port) ~~ 0 ifTrue:[
+        aStream nextPut:$:.
+        port printOn:aStream.
+    ]
 ! !
 
 !SocketAddress methodsFor:'private'!
@@ -628,5 +660,5 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.22 2003-07-16 16:44:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.23 2003-10-17 16:43:03 penk Exp $'
 ! !