Index: contrib/hgk
===================================================================
--- contrib/hgk.orig
+++ contrib/hgk
@@ -4086,6 +4086,10 @@ proc getconfig {} {
 }
 
 # defaults...
+if {![info exists env(HG)]} {
+    set env(HG) "hg"
+}
+
 set datemode 0
 set boldnames 0
 set diffopts "-U 5 -p"