diff --git a/contrib/hgk b/contrib/hgk
--- a/contrib/hgk
+++ b/contrib/hgk
@@ -469,7 +469,12 @@ proc makewindow {} {
     global rowctxmenu gaudydiff mergemax
     global hgvdiff bgcolor fgcolor diffremcolor diffaddcolor diffmerge1color
     global diffmerge2color hunksepcolor
-
+    global posx posy
+
+    if {[info exists posx]} {
+        wm geometry . +$posx+$posy
+    }
+    
     menu .bar
     .bar add cascade -label "File" -menu .bar.file
     menu .bar.file
@@ -742,6 +747,10 @@ proc savestuff {w} {
 			   / [font measure [$cflist cget -font] "0"]}]
 	puts $f "set geometry(cflistw) $wid"
 	puts $f "#"
+	puts $f "# main window position:"
+	puts $f "set posx [winfo x .]"
+	puts $f "set posy [winfo y .]"
+	puts $f "#"
 	puts $f "# authorcolors format:"
 	puts $f "#"
 	puts $f "# zero or more sublists of"