diff options
| -rw-r--r-- | lib/console.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/console.tcl b/lib/console.tcl index 6f718fbac3..b038a78358 100644 --- a/lib/console.tcl +++ b/lib/console.tcl @@ -122,7 +122,7 @@ method _read {fd after} { } else { $w.m.t delete $console_cr end $w.m.t insert end "\n" - $w.m.t insert end [string range $buf $c $cr] + $w.m.t insert end [string range $buf $c [expr {$cr - 1}]] set c $cr incr c } |