--- a/contrib/hgk	Tue Sep 04 18:37:28 2007 +0200
+++ b/contrib/hgk	Wed Sep 05 21:53:59 2007 +0200
@@ -3755,4 +3755,6 @@
 setcoords
 makewindow
 readrefs
+set hgroot [exec $env(HG) root]
+wm title . "hgk $hgroot"
 getcommits $revtreeargs