@@ -107,11 +107,15 @@
     if (ret == 0) {
 	if (!tclEofChan) {
             dprintf("Got 0 from Tcl_Read or Tcl_ReadRaw, and EOF is set -- ret == -1 now");
 	    BIO_set_retry_read(bio);
 	    ret = -1;
-	}
+	} else {
+            dprintf("Got 0 from Tcl_Read or Tcl_ReadRaw, and EOF is not set");
+        }
+    } else {
+        dprintf("Got non-zero from Tcl_Read or Tcl_ReadRaw == ret == %i", ret);
     }
     if (BIO_should_write(bio)) {
 	BIO_set_retry_write(bio);
     }