Posted to tcl by rmax at Wed Aug 03 19:39:13 GMT 2022view pretty

--- generic/tclIO.c
+++ generic/tclIO.c
@@ -4454,8 +4454,8 @@
            }
        }
     }
-    if ((flushed < total) && (GotFlag(statePtr, CHANNEL_UNBUFFERED) ||
-           (needNlFlush && GotFlag(statePtr, CHANNEL_LINEBUFFERED)))) {
+    if (((flushed < total) && (GotFlag(statePtr, CHANNEL_UNBUFFERED))) ||
+           (needNlFlush && GotFlag(statePtr, CHANNEL_LINEBUFFERED))) {
        if (FlushChannel(NULL, chanPtr, 0) != 0) {
            return -1;
        }