Index: tlsBIO.c
==================================================================
--- tlsBIO.c
+++ tlsBIO.c
@@ -41,10 +41,11 @@
 BIO *BIO_new_tcl(State *statePtr, int flags) {
 	BIO *bio;
 	Tcl_Channel parentChannel;
 	const Tcl_ChannelType *parentChannelType;
 	static BIO_METHOD *BioMethods = NULL;
+	void *parentChannelFdIn_p, *parentChannelFdOut_p;
 	int parentChannelFdIn, parentChannelFdOut, parentChannelFd;
 	int validParentChannelFd;
 	int tclGetChannelHandleRet;
 
 	dprintf("BIO_new_tcl() called");
@@ -71,20 +72,18 @@
 	 * with the SSL library since it will likely be optimized for this.
 	 */
 	parentChannel = Tls_GetParent(statePtr);
 	parentChannelType = Tcl_GetChannelType(parentChannel);
 
-	/* If we do not get the channel name here, we segfault later :-( */
-	dprintf("Channel Name is valid: %s", Tcl_GetChannelName(statePtr->self));
-	dprintf("Parent Channel Name is valid: %s", Tcl_GetChannelName(parentChannel));
-
 	validParentChannelFd = 0;
 	if (strcmp(parentChannelType->typeName, "tcp") == 0) {
-		tclGetChannelHandleRet = Tcl_GetChannelHandle(parentChannel, TCL_READABLE, (ClientData) &parentChannelFdIn);
+		tclGetChannelHandleRet = Tcl_GetChannelHandle(parentChannel, TCL_READABLE, (ClientData) &parentChannelFdIn_p);
 		if (tclGetChannelHandleRet == TCL_OK) {
-			tclGetChannelHandleRet = Tcl_GetChannelHandle(parentChannel, TCL_WRITABLE, (ClientData) &parentChannelFdOut);
+			tclGetChannelHandleRet = Tcl_GetChannelHandle(parentChannel, TCL_WRITABLE, (ClientData) &parentChannelFdOut_p);
 			if (tclGetChannelHandleRet == TCL_OK) {
+				parentChannelFdIn = PTR2INT(parentChannelFdIn_p);
+				parentChannelFdOut = PTR2INT(parentChannelFdOut_p);
 				if (parentChannelFdIn == parentChannelFdOut) {
 					parentChannelFd = parentChannelFdIn;
 					validParentChannelFd = 1;
 				}
 			}

Index: tlsInt.h
==================================================================
--- tlsInt.h
+++ tlsInt.h
@@ -19,10 +19,11 @@
 #define _TLSINT_H
 
 #include "tls.h"
 #include <errno.h>
 #include <string.h>
+#include <stdint.h>
 
 #ifdef __WIN32__
 #define WIN32_LEAN_AND_MEAN
 #include <windows.h>
 #include <wincrypt.h> /* OpenSSL needs this on Windows */
@@ -162,7 +163,9 @@
 void            Tls_Free(char *blockPtr);
 void            Tls_Clean(State *statePtr);
 int             Tls_WaitForConnect(State *statePtr, int *errorCodePtr);
 
 BIO             *BIO_new_tcl(State* statePtr, int flags);
+
+#define PTR2INT(x) ((int) ((intptr_t) (x)))
 
 #endif /* _TLSINT_H */