--- a/Socket.st	Tue Aug 16 06:51:56 2016 +0200
+++ b/Socket.st	Wed Aug 17 06:55:59 2016 +0200
@@ -2067,31 +2067,31 @@
 
      Return true if ok, false otherwise.
      The current process will block (but not the whole Smalltalk) until the connection is established,
-     or timeout millliseconds have passed."
+     or timeout milliseconds have passed."
 
     |domainClass socketAddress|
 
     (hostOrPathNameOrSocketAddr isSocketAddress) ifTrue:[
-	socketAddress := hostOrPathNameOrSocketAddr.
-	portNrOrNameOrNil notNil ifTrue:[
-	    socketAddress port:portNrOrNameOrNil.
-	].
+        socketAddress := hostOrPathNameOrSocketAddr.
+        portNrOrNameOrNil notNil ifTrue:[
+            socketAddress port:portNrOrNameOrNil.
+        ].
     ] ifFalse:[
-	"backward compatibility: support for byteArray and string arg"
-	domainClass := self class socketAddressClassForDomain:domain.
-	domainClass isNil ifTrue:[
-	    ^ self error:'invalid (unsupported) domain'.
-	].
-
-	hostOrPathNameOrSocketAddr isString ifTrue:[
-	    socketAddress := domainClass hostName:hostOrPathNameOrSocketAddr serviceName:portNrOrNameOrNil type:#SOCK_STREAM.
-	    peerName := hostOrPathNameOrSocketAddr.
-	] ifFalse:[
-	    hostOrPathNameOrSocketAddr isByteCollection ifFalse:[
-		^ self error:'connectTo: bad host (socketAddress) argument'
-	    ].
-	    socketAddress := domainClass hostAddress:hostOrPathNameOrSocketAddr port:portNrOrNameOrNil.
-	].
+        "backward compatibility: support for byteArray and string arg"
+        domainClass := self class socketAddressClassForDomain:domain.
+        domainClass isNil ifTrue:[
+            ^ self error:'invalid (unsupported) domain'.
+        ].
+
+        hostOrPathNameOrSocketAddr isString ifTrue:[
+            socketAddress := domainClass hostName:hostOrPathNameOrSocketAddr serviceName:portNrOrNameOrNil type:#SOCK_STREAM.
+            peerName := hostOrPathNameOrSocketAddr.
+        ] ifFalse:[
+            hostOrPathNameOrSocketAddr isByteCollection ifFalse:[
+                ^ self error:'connectTo: bad host (socketAddress) argument'
+            ].
+            socketAddress := domainClass hostAddress:hostOrPathNameOrSocketAddr port:portNrOrNameOrNil.
+        ].
     ].
 
     ^ self connectTo:socketAddress withTimeout:timeout.
@@ -2114,7 +2114,7 @@
 
      Return true if ok, false otherwise.
      The current process will block (but not the whole Smalltalk) until the connection is established,
-     or timeout millliseconds have passed."
+     or timeout milliseconds have passed."
 
     |isAsync err|
 
@@ -2177,7 +2177,7 @@
      * connect
      */
 
-// we do not use wrap calls any longer, bacuse they have problems with aborting.
+// we do not use wrap calls any longer, because they have problems with aborting.
 // we use nonblocking accept() instead.
 # if 0 && defined(DO_WRAP_CALLS)
     // __setWrapCallDebugging(1,1);