--- a/IPv6SocketAddress.st	Tue Mar 15 22:45:53 2016 +0100
+++ b/IPv6SocketAddress.st	Tue Mar 15 22:46:05 2016 +0100
@@ -284,7 +284,7 @@
     i1 to:i2 by:2 do:[:i | 
         |word|
 
-        word := self wordAt:i MSB:true.
+        word := self unsignedInt16At:i MSB:true.
         word == 0 ifTrue:[
             (colons <= 1 and:[i ~~ (i2-1)]) ifTrue:[
                 colons := colons + 1.
@@ -409,10 +409,10 @@
 !IPv6SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPv6SocketAddress.st,v 1.22 2015-03-02 23:13:30 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPv6SocketAddress.st,v 1.22 2015-03-02 23:13:30 stefan Exp $'
+    ^ '$Header$'
 ! !