--- a/IPv6SocketAddress.st	Tue Sep 21 01:58:18 1999 +0200
+++ b/IPv6SocketAddress.st	Tue Sep 21 02:27:27 1999 +0200
@@ -12,7 +12,7 @@
 
 
 
-IPSocketAddress subclass:#IPv6SocketAddress
+IPSocketAddress variableByteSubclass:#IPv6SocketAddress
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -55,6 +55,21 @@
 
 ! !
 
+!IPv6SocketAddress class methodsFor:'instance creation'!
+
+new
+    ^ self new:16
+
+
+! !
+
+!IPv6SocketAddress methodsFor:'accessing'!
+
+port
+    ^ port
+
+! !
+
 !IPv6SocketAddress methodsFor:'queries'!
 
 hostName
@@ -63,11 +78,6 @@
 
 !
 
-port
-    ^ port
-
-!
-
 portOrName
     ^ port
 
@@ -76,5 +86,5 @@
 !IPv6SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPv6SocketAddress.st,v 1.1 1999-09-20 23:52:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/IPv6SocketAddress.st,v 1.2 1999-09-21 00:27:20 cg Exp $'
 ! !