--- a/Socket.st	Fri Jan 13 13:03:57 2017 +0100
+++ b/Socket.st	Tue Jan 17 14:19:27 2017 +0100
@@ -3759,7 +3759,6 @@
     "
 ! !
 
-
 !Socket methodsFor:'specials'!
 
 linger:anIntegerOrNil
@@ -4035,6 +4034,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'!