diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/spellcheck.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl index 01c2c4f..7f018e4 100644 --- a/lib/spellcheck.tcl +++ b/lib/spellcheck.tcl @@ -308,7 +308,7 @@ method _read {} { # try to round out the word. # while {$curr ne $orig - && [string equal -length [llength $curr] $curr $orig]} { + && [string equal -length [string length $curr] $curr $orig]} { set n_loc [$w_text index "$e_loc +1c"] set n_curr [$w_text get $b_loc $n_loc] if {$n_curr eq $curr} { |