--- a/Socket.st	Sat Aug 31 16:12:38 2019 +0200
+++ b/Socket.st	Tue Sep 03 08:56:50 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -3829,6 +3827,10 @@
 	and:[peer notNil]
 !
 
+isListening
+    ^ listening notNil
+!
+
 port
     "return the port number (or name for unix-sockets) to which the socket is bound
      - so this is the local port."
@@ -4483,3 +4485,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+