@@ -44,10 +44,12 @@
     int flags;
 {
     BIO *bio;
     static BIO_METHOD *BioMethods = NULL;
 
+    dprintf("BIO_new_tcl() called");
+
     if (BioMethods == NULL) {
         BioMethods = BIO_meth_new(BIO_TYPE_TCL, "tcl");
         BIO_meth_set_write(BioMethods, BioWrite);
         BIO_meth_set_read(BioMethods, BioRead);
         BIO_meth_set_puts(BioMethods, BioPuts);
@@ -150,10 +152,11 @@
 static int
 BioPuts	(bio, str)
     BIO *bio;
     CONST char *str;
 {
+    dprintf("BioPuts(%p, <string:%p>) called", bio, str);
     return BioWrite(bio, str, (int) strlen(str));
 }
 
 static long
 BioCtrl	(bio, cmd, num, ptr)
@@ -224,10 +227,13 @@
 
 static int
 BioNew	(bio)
     BIO *bio;
 {
+
+    dprintf("BioNew(%p) called", bio);
+
     BIO_set_init(bio, 0);
     BIO_set_data(bio, NULL);
     BIO_clear_flags(bio, -1);
 
     return 1;
@@ -238,10 +244,13 @@
     BIO *bio;
 {
     if (bio == NULL) {
 	return 0;
     }
+
+    dprintf("BioFree(%p) called", bio);
+
     if (BIO_get_shutdown(bio)) {
 	if (BIO_get_init(bio)) {
 	    /*shutdown(bio->num, 2) */
 	    /*closesocket(bio->num) */
 	}