index 01c2c4f0d1a51d29cc554b9209d7dbcd0af90515..7f018e4009dd17941d93bc9146fee7e3a2e07f0e 100644 (file)
# 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} {