--- a/SocketAddress.st	Wed Mar 23 14:27:22 2016 +0100
+++ b/SocketAddress.st	Wed Mar 23 14:32:15 2016 +0100
@@ -632,7 +632,7 @@
     OperatingSystem isOSXlike ifTrue:[
         ^ self at:2
     ].
-    ^ self unsignedShortAt:1
+    ^ self unsignedInt16At:1
 !
 
 domainCode:anInteger
@@ -645,7 +645,7 @@
         self at:1 put:self size.
         self at:2 put:anInteger.
     ] ifFalse:[ 
-        self unsignedShortAt:1 put:anInteger
+        self unsignedInt16At:1 put:anInteger
     ].
 !