Index: tls.c
==================================================================
--- tls.c
+++ tls.c
@@ -676,10 +676,14 @@
 
 		Tcl_AppendResult(interp, "handshake failed: ", errStr, (char *) NULL);
 		dprintf("Returning TCL_ERROR with handshake failed: %s", errStr);
 		return(TCL_ERROR);
 	} else {
+		if (err != 0) {
+			dprintf("Got an error with a completed handshake: err = %i", err);
+		}
+
 		ret = 1;
 	}
 
 	dprintf("Returning TCL_OK with data \"%i\"", ret);
 	Tcl_SetObjResult(interp, Tcl_NewIntObj(ret));