[PATCH] gitk: start-up bugfix

diff --git a/gitk b/gitk
index 74278568ec2be18bf5c08830b6e273e0229da475..45d31127fa46318a4f1c928422c51991d0f509f0 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -4937,7 +4937,7 @@ if {$i >= 0} {
        # so look for "fatal:".
        set i [string first "fatal:" $err]
        if {$i > 0} {
-           set err [string range [expr {$i + 6}] end]
+           set err [string range $err [expr {$i + 6}] end]
        }
        show_error . "Bad arguments to gitk:\n$err"
        exit 1