--- a/Socket.st	Fri Nov 15 10:50:00 2013 +0100
+++ b/Socket.st	Mon Nov 25 16:36:49 2013 +0100
@@ -1819,8 +1819,8 @@
             hostOrPathNameOrSocketAddrOrNil isString ifTrue:[
                 socketAddress := self socketAddressClass hostName:hostOrPathNameOrSocketAddrOrNil.
             ] ifFalse:[
-                hostOrPathNameOrSocketAddrOrNil isByteArray ifFalse:[
-                    ^ self error:'bad host (socketAddress) argument'
+                hostOrPathNameOrSocketAddrOrNil isByteCollection ifFalse:[
+                    ^ self error:'bindTo: bad host (socketAddress) argument'
                 ].
                 socketAddress := self socketAddressClass hostAddress:hostOrPathNameOrSocketAddrOrNil.
             ].
@@ -2121,7 +2121,7 @@
             peerName := hostOrPathNameOrSocketAddr.
         ] ifFalse:[
             hostOrPathNameOrSocketAddr isByteCollection ifFalse:[
-                ^ self error:'bad host (socketAddress) argument'
+                ^ self error:'connectTo: bad host (socketAddress) argument'
             ].
             socketAddress := domainClass hostAddress:hostOrPathNameOrSocketAddr port:portNrOrNameOrNil.
         ].
@@ -4247,10 +4247,10 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.289 2013-11-15 09:50:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.290 2013-11-25 15:36:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.289 2013-11-15 09:50:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.290 2013-11-25 15:36:49 stefan Exp $'
 ! !