@@ -57,20 +57,20 @@
     int bufLen;
 {
     Tcl_Channel chan = Tls_GetParent((State*)(bio->ptr));
     int ret;
 
-    dprintf(stderr,"\nBioWrite(%p, <buf>, %d) [%p]",
+    dprintf("BioWrite(%p, <buf>, %d) [%p]",
 	    (void *) bio, bufLen, (void *) chan);
 
     if (channelTypeVersion == TLS_CHANNEL_VERSION_2) {
 	ret = Tcl_WriteRaw(chan, buf, bufLen);
     } else {
 	ret = Tcl_Write(chan, buf, bufLen);
     }
 
-    dprintf(stderr,"\n[%p] BioWrite(%d) -> %d [%d.%d]",
+    dprintf("[%p] BioWrite(%d) -> %d [%d.%d]",
 	    (void *) chan, bufLen, ret, Tcl_Eof(chan), Tcl_GetErrno());
 
     BIO_clear_flags(bio, BIO_FLAGS_WRITE|BIO_FLAGS_SHOULD_RETRY);
 
     if (ret == 0) {
@@ -92,11 +92,11 @@
     int bufLen;
 {
     Tcl_Channel chan = Tls_GetParent((State*)bio->ptr);
     int ret = 0;
 
-    dprintf(stderr,"\nBioRead(%p, <buf>, %d) [%p]",
+    dprintf("BioRead(%p, <buf>, %d) [%p]",
 	    (void *) bio, bufLen, (void *) chan);
 
     if (buf == NULL) return 0;
 
     if (channelTypeVersion == TLS_CHANNEL_VERSION_2) {
@@ -103,11 +103,11 @@
 	ret = Tcl_ReadRaw(chan, buf, bufLen);
     } else {
 	ret = Tcl_Read(chan, buf, bufLen);
     }
 
-    dprintf(stderr,"\n[%p] BioRead(%d) -> %d [%d.%d]",
+    dprintf("[%p] BioRead(%d) -> %d [%d.%d]",
 	    (void *) chan, bufLen, ret, Tcl_Eof(chan), Tcl_GetErrno());
 
     BIO_clear_flags(bio, BIO_FLAGS_READ|BIO_FLAGS_SHOULD_RETRY);
 
     if (ret == 0) {
@@ -139,11 +139,11 @@
 {
     Tcl_Channel chan = Tls_GetParent((State*)bio->ptr);
     long ret = 1;
     int *ip;
 
-    dprintf(stderr,"\nBioCtrl(%p, 0x%x, 0x%x, %p)",
+    dprintf("BioCtrl(%p, 0x%x, 0x%x, %p)",
 	    (void *) bio, (unsigned int) cmd, (unsigned int) num,
 	    (void *) ptr);
 
     switch (cmd) {
     case BIO_CTRL_RESET:
@@ -178,24 +178,24 @@
 	break;
     case BIO_CTRL_SET_CLOSE:
 	bio->shutdown = (int)num;
 	break;
     case BIO_CTRL_EOF:
-	dprintf(stderr, "BIO_CTRL_EOF\n");
+	dprintf("BIO_CTRL_EOF");
 	ret = Tcl_Eof(chan);
 	break;
     case BIO_CTRL_PENDING:
 	ret = (Tcl_InputBuffered(chan) ? 1 : 0);
-	dprintf(stderr, "BIO_CTRL_PENDING(%d)\n", (int) ret);
+	dprintf("BIO_CTRL_PENDING(%d)", (int) ret);
 	break;
     case BIO_CTRL_WPENDING:
 	ret = 0;
 	break;
     case BIO_CTRL_DUP:
 	break;
     case BIO_CTRL_FLUSH:
-	dprintf(stderr, "BIO_CTRL_FLUSH\n");
+	dprintf("BIO_CTRL_FLUSH");
 	if (channelTypeVersion == TLS_CHANNEL_VERSION_2) {
 	    ret = ((Tcl_WriteRaw(chan, "", 0) >= 0) ? 1 : -1);
 	} else {
 	    ret = ((Tcl_Flush(chan) == TCL_OK) ? 1 : -1);
 	}