Merge git://repo.or.cz/git-gui

[git.git] / git-gui / lib / spellcheck.tcl

diff --git a/git-gui/lib/spellcheck.tcl b/git-gui/lib/spellcheck.tcl
index 01c2c4f0d1a51d29cc554b9209d7dbcd0af90515..7f018e4009dd17941d93bc9146fee7e3a2e07f0e 100644 (file)
--- a/git-gui/lib/spellcheck.tcl
+++ b/git-gui/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} {