--- a/Socket.st	Fri Aug 11 11:24:22 2017 +0200
+++ b/Socket.st	Tue Aug 22 20:35:21 2017 +0200
@@ -3763,7 +3763,6 @@
     "
 ! !
 
-
 !Socket methodsFor:'specials'!
 
 linger:anIntegerOrNil
@@ -4039,6 +4038,14 @@
     ^ self setSocketOption:#'TCP_NODELAY' argument:aBoolean argument:nil.
 ! !
 
+!Socket methodsFor:'testing'!
+
+isSocket
+    "return true, if the receiver is some kind of socket;
+     false returned here - the method is only redefined in Socket."
+
+    ^ true
+! !
 
 !Socket methodsFor:'waiting'!