--- a/SocketAddress.st	Tue May 20 16:59:26 2003 +0200
+++ b/SocketAddress.st	Tue May 20 17:47:09 2003 +0200
@@ -303,20 +303,32 @@
     self unsignedShortAt:1 put:anInteger
 !
 
-hostAddress:anAddress
+hostAddress:addressBytes
     "generic method, subclasses usually redefine this"
 
-    self replaceBytesFrom:3 to:anAddress size+2 with:anAddress startingAt:1
+    "/ the first 2-bytes (a short) is the domainCode
+    self replaceBytesFrom:1+2 to:addressBytes size+2 with:addressBytes startingAt:1
+
+    "
+     IPSocketAddress hostAddress:#[193 141 12 193] port:80
+    "
 !
 
-hostAddress:addr port:portNr
-    self hostAddress:addr.
+hostAddress:addressBytes port:portNr
+    self hostAddress:addressBytes.
     self port:portNr
 
     "
      IPSocketAddress hostAddress:#[193 141 12 193] port:10
     "
+!
 
+port
+    self subclassResponsibility
+!
+
+port:portNr
+    self subclassResponsibility
 ! !
 
 !SocketAddress methodsFor:'printing & storing'!
@@ -375,5 +387,5 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.11 2003-03-27 15:14:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.12 2003-05-20 15:47:09 cg Exp $'
 ! !