--- a/Socket.st	Thu May 16 14:54:03 2019 +0200
+++ b/Socket.st	Fri May 17 13:10:48 2019 +0200
@@ -772,30 +772,32 @@
     "
 !
 
-newTCP:aServiceOrNil
+newTCP:portNrOrServiceName
     "create a TCP socket for a service -
      neither connect nor connect-wait is done."
 
     |newSock socketAddress socketAddressClass|
 
     newSock := self newTCP.
-    (newSock notNil and:[aServiceOrNil notNil]) ifTrue:[
-	[
-	    socketAddressClass := newSock socketAddressClass.
-	    socketAddress := socketAddressClass hostName:nil serviceName:aServiceOrNil type:#stream.
-	    socketAddress hostAddress:socketAddressClass anyAddress.
-	    newSock bindTo:socketAddress reuseAddress:true.
-	] ifCurtailed:[
-	    newSock close.
-	]
+    (newSock notNil and:[portNrOrServiceName notNil]) ifTrue:[
+        [
+            socketAddressClass := newSock socketAddressClass.
+            socketAddress := socketAddressClass hostName:nil serviceName:portNrOrServiceName type:#stream.
+            socketAddress hostAddress:socketAddressClass anyAddress.
+            newSock bindTo:socketAddress reuseAddress:true.
+        ] ifCurtailed:[
+            newSock close.
+        ]
     ].
     ^ newSock
 
 
     "
-	Socket newTCP:'http-alt'.
-	Socket newTCP:9996.
+        Socket newTCP:'http-alt'.
+        Socket newTCP:9996.
     "
+
+    "Modified (comment): / 17-05-2019 / 13:10:18 / Claus Gittinger"
 !
 
 newTCPclientToAddress:aHostAddress port:aService
@@ -971,10 +973,12 @@
 
 !
 
-newTCPserverAtPort:aService
+newTCPserverAtPort:portNrOrServiceName
     "create a new TCP server socket providing service."
 
-    ^ self newTCP:aService
+    ^ self newTCP:portNrOrServiceName
+
+    "Modified (format): / 17-05-2019 / 13:10:33 / Claus Gittinger"
 !
 
 newUDP