@@ -16,10 +16,11 @@
  *    SSLtcl (Peter Antman)
  *
  */
 
 #include "tlsInt.h"
+#include <errno.h>
 
 /*
  * Forward declarations
  */
 static void TlsChannelHandlerTimer(ClientData clientData);
@@ -109,17 +110,17 @@
  */
 int Tls_WaitForConnect(State *statePtr, int *errorCodePtr, int handshakeFailureIsPermanent) {
     unsigned long backingError;
     int err, rc;
     int bioShouldRetry;
+    *errorCodePtr = 0;
 
     dprintf("WaitForConnect(%p)", (void *) statePtr);
     dprintFlags(statePtr);
 
     if (!(statePtr->flags & TLS_TCL_INIT)) {
 	dprintf("Tls_WaitForConnect called on already initialized channel -- returning with immediate success");
-	*errorCodePtr = 0;
 	return(0);
     }
 
     if (statePtr->flags & TLS_TCL_HANDSHAKE_FAILED) {
 	/*
@@ -193,19 +194,19 @@
 
 	dprintf("We have either completely established the session or completely failed it -- there is no more need to ever retry it though");
 	break;
     }
 
-    *errorCodePtr = EINVAL;
-
     switch (rc) {
 	case SSL_ERROR_NONE:
 	    /* The connection is up, we are done here */
 	    dprintf("The connection is up");
+	    *errorCodePtr = 0;
 	    break;
 	case SSL_ERROR_ZERO_RETURN:
-	    dprintf("SSL_ERROR_ZERO_RETURN: Connect returned an invalid value...")
+	    dprintf("SSL_ERROR_ZERO_RETURN: Connect returned an invalid value...");
+	    *errorCodePtr = EINVAL;
 	    return(-1);
 	case SSL_ERROR_SYSCALL:
 	    backingError = ERR_get_error();
 
 	    if (backingError == 0 && err == 0) {
@@ -306,10 +307,11 @@
 
     dprintf("Calling Tls_WaitForConnect");
     tlsConnect = Tls_WaitForConnect(statePtr, errorCodePtr, 0);
     if (tlsConnect < 0) {
 	dprintf("Got an error waiting to connect (tlsConnect = %i, *errorCodePtr = %i)", tlsConnect, *errorCodePtr);
+	Tls_Error(statePtr, strerror(*errorCodePtr));
 
 	bytesRead = -1;
 	if (*errorCodePtr == ECONNRESET) {
 	    dprintf("Got connection reset");
 	    /* Soft EOF */
@@ -393,10 +395,13 @@
 	    *errorCodePtr = 0;
 	    bytesRead = 0;
 	    break;
     }
 
+    if (*errorCodePtr < 0) {
+	Tls_Error(statePtr, strerror(*errorCodePtr));
+    }
     dprintf("Input(%d) -> %d [%d]", bufSize, bytesRead, *errorCodePtr);
     return(bytesRead);
 }
 
 /*
@@ -436,10 +441,11 @@
 
     dprintf("Calling Tls_WaitForConnect");
     tlsConnect = Tls_WaitForConnect(statePtr, errorCodePtr, 1);
     if (tlsConnect < 0) {
 	dprintf("Got an error waiting to connect (tlsConnect = %i, *errorCodePtr = %i)", tlsConnect, *errorCodePtr);
+	Tls_Error(statePtr, strerror(*errorCodePtr));
 
 	written = -1;
 	if (*errorCodePtr == ECONNRESET) {
 	    dprintf("Got connection reset");
 	    /* Soft EOF */
@@ -536,10 +542,13 @@
 	default:
 	    dprintf(" unknown err: %d", err);
 	    break;
     }
 
+    if (*errorCodePtr < 0) {
+	Tls_Error(statePtr, strerror(*errorCodePtr));
+    }
     dprintf("Output(%d) -> %d", toWrite, written);
     return(written);
 }
 
 /*
@@ -775,10 +784,11 @@
     }
 
     dprintf("Calling Tls_WaitForConnect");
     errorCode = 0;
     if (Tls_WaitForConnect(statePtr, &errorCode, 1) < 0) {
+	Tls_Error(statePtr, strerror(errorCode));
 	if (errorCode == EAGAIN) {
 	    dprintf("Async flag could be set (didn't check) and errorCode == EAGAIN:  Returning 0");
 
 	    return 0;
 	}