--- a/Socket.st	Mon Oct 30 14:18:17 1995 +0100
+++ b/Socket.st	Tue Oct 31 17:15:11 1995 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.30 1995-10-27 13:24:03 cg Exp $
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.31 1995-10-31 16:15:11 cg Exp $
 '!
 
 !Socket class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.30 1995-10-27 13:24:03 cg Exp $
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.31 1995-10-31 16:15:11 cg Exp $
 "
 !
 
@@ -710,6 +710,7 @@
     newSock := self newTCP.
     newSock notNil ifTrue:[
 	(newSock connectTo:hostname port:(self portOfService:aService)) ifFalse:[
+	    newSock close.
 	    ^ nil
 	]
     ].
@@ -890,7 +891,7 @@
     __END_INTERRUPTABLE__
 
     if (sock < 0) {
-	DBGPRINTF(("socket call failed errno=%d\n", errno));
+	DBGPRINTF(("socket(dom=%d typ=%d proto=%d) call failed errno=%d\n", dom, typ, proto, errno));
 	_INST(lastErrorNumber) = _MKSMALLINT(errno);
     } else {
 	/* 
@@ -981,7 +982,7 @@
     __END_INTERRUPTABLE__
 
     if (sock < 0) {
-	DBGPRINTF(("socket call failed\n"));
+	DBGPRINTF(("socket(dom=%d typ=%d proto=0) call failed errno=%d\n", sa.sin_family, SOCK_DGRAM, errno));
 	_INST(lastErrorNumber) = _MKSMALLINT(errno);
     } else {
 	/* 
@@ -1105,7 +1106,7 @@
     __END_INTERRUPTABLE__
 
     if (sock < 0) {
-	DBGPRINTF(("socket call failed errno=%d\n", errno));
+	DBGPRINTF(("socket(dom=%d typ=%d proto=0) call failed errno=%d\n", sa.sin_family, SOCK_STREAM, errno));
 	_INST(lastErrorNumber) = _MKSMALLINT(errno);
     } else {
 	/*