contrib/hgk

--- a/contrib/hgk	Sun Jul 01 15:22:49 2007 +0200
+++ b/contrib/hgk	Sun Jul 01 19:15:25 2007 +0200
@@ -2819,7 +2819,9 @@
 	}
 	return
     }
-    set file [lindex $line 5]
+    set tab1 [expr [string first "\t" $line] + 1]
+    set tab2 [expr [string first "\t" $line $tab1] - 1]
+    set file [string range $line $tab1 $tab2]
     lappend treediff $file
 }