Index: tclIO.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIO.c,v
retrieving revision 1.142
diff -r1.142 tclIO.c
6931a6932,6933
> #define MAX_CHANNEL_BUFFER_SIZE (1024*1024)
> 
6940,6941c6942
<      * If the buffer size is smaller than 1 byte or larger than one MByte, do
<      * not accept the requested size and leave the current buffer size.
---
>      * Clip the buffer size to force it into the [1,1M] range
6944,6946c6945,6946
<     if (sz < 1 || sz > 1024*1024) {
< 	return;
<     }
---
>     if (sz < 1) sz=1;
>     if (sz > MAX_CHANNEL_BUFFER_SIZE) sz=MAX_CHANNEL_BUFFER_SIZE;
