summaryrefslogtreecommitdiff
path: root/lib/console.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/console.tcl')
-rw-r--r--lib/console.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/console.tcl b/lib/console.tcl
index 6f718fb..b038a78 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
}