Index: test/shell1.test ================================================================== --- test/shell1.test +++ test/shell1.test @@ -822,15 +822,16 @@ # NOTE: Skip NUL byte because it appears to be incompatible with command # shell argument parsing. # for {set i 1} {$i < 256} {incr i} { # - # NOTE: Due to how the Tcl [exec] command works on Windows (i.e. where - # it treats command channels opened for it as textual ones), the - # carriage-return and end-of-file characters cannot be used here. + # NOTE: Due to how the Tcl [exec] command works (i.e. where it treats + # command channels opened for it as textual ones), the carriage + # return character (and on Windows, the end-of-file character) + # cannot be used here. # - if {$tcl_platform(platform)=="windows" && ($i == 0x0D || $i == 0x1A)} { + if {$i==0x0D || ($tcl_platform(platform)=="windows" && $i==0x1A)} { continue } set hex [format %02X $i] set char [subst \\x$hex]; set oldChar $char set char [string map [list \