diff --git a/racket/src/racket/src/port.c b/racket/src/racket/src/port.c index 5f516f700e..d5b965dc2e 100644 --- a/racket/src/racket/src/port.c +++ b/racket/src/racket/src/port.c @@ -8318,7 +8318,7 @@ fd_write_string(Scheme_Output_Port *port, fop = (Scheme_FD *)port->port_data; - if (!flush && !fop->flushing && (fop->flush != MZ_FLUSH_ALWAYS)) { + if (!flush && !fop->flushing && (fop->flush == MZ_FLUSH_NEVER)) { l = MZPORT_FD_BUFFSIZE - fop->bufcount; if (len <= l) { memcpy(fop->buffer + fop->bufcount, str + d, len);