--- a/contrib/hgk	Tue Apr 11 08:42:07 2006 +0200
+++ b/contrib/hgk	Tue Apr 11 12:44:13 2006 +0200
@@ -3448,7 +3448,7 @@
 	return
     }
     if {[catch {
-	set out [exec hg tag $tag $id]
+	set out [exec hg tag -r $id $tag]
     } err]} {
 	error_popup "Error creating tag: $err"
 	return