X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=git-gui%2Flib%2Fspellcheck.tcl;h=7f018e4009dd17941d93bc9146fee7e3a2e07f0e;hb=923d44aeb7cb6d21eeb459fdc1b58137e37c2b1c;hp=01c2c4f0d1a51d29cc554b9209d7dbcd0af90515;hpb=aa8d53ec387a7baf72ab5e3a91c35bb5bf20eb4d;p=git.git

diff --git a/git-gui/lib/spellcheck.tcl b/git-gui/lib/spellcheck.tcl
index 01c2c4f0d..7f018e400 100644
--- 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} {