Index: tlsBIO.c
==================================================================
--- tlsBIO.c
+++ tlsBIO.c
@@ -141,11 +141,10 @@
     long num;
     void *ptr;
 {
     Tcl_Channel chan = Tls_GetParent((State*)BIO_get_data(bio));
     long ret = 1;
-    int *ip;
 
     dprintf("BioCtrl(%p, 0x%x, 0x%x, %p)",
 	    (void *) bio, (unsigned int) cmd, (unsigned int) num,
 	    (void *) ptr);
 
@@ -157,30 +156,18 @@
 	ret = 0;
 	break;
     case BIO_CTRL_INFO:
 	ret = 1;
 	break;
-#if 0
     case BIO_C_SET_FD:
-	BioFree(bio);
-	/* Sets State* */
-	bio->ptr	= *((char **)ptr);
-	bio->shutdown	= (int)num;
-	bio->init	= 1;
-	break;
+        dprintf("Unsupported call: BIO_C_SET_FD");
+        ret = -1;
+        break;
     case BIO_C_GET_FD:
-	if (bio->init) {
-	    ip = (int *)ptr;
-	    if (ip != NULL) {
-		*ip = bio->num;
-	    }
-	    ret = bio->num;
-	} else {
-	    ret = -1;
-	}
-	break;
-#endif
+        dprintf("Unsupported call: BIO_C_GET_FD");
+        ret = -1;
+        break;
     case BIO_CTRL_GET_CLOSE:
 	ret = BIO_get_shutdown(bio);
 	break;
     case BIO_CTRL_SET_CLOSE:
 	BIO_set_shutdown(bio, num);