--- a/RegressionTests__SocketTests.st	Sat Jan 24 00:01:55 2015 +0100
+++ b/RegressionTests__SocketTests.st	Sat Jan 24 00:02:31 2015 +0100
@@ -126,6 +126,8 @@
     addr port:51121.   
     nm := addr hostName.
     self assert:(nm notEmptyOrNil).
+    self assert:(addr hostAddress = #[127 0 0 1]).
+    self assert:(addr port = 51121).
 ! !
 
 !SocketTests class methodsFor:'documentation'!