diff --git a/git-gui b/git-gui
index 3845cf7168900d5f01e83a6e4d8e550a7a3d4029..09fc40aaf8e24059f8d2d3632a94011b7407c434 100755
--- a/git-gui
+++ b/git-gui
@@ -2387,6 +2387,7 @@ proc do_include_all {} {
 }
 
 proc revert_helper {txt paths} {
+	global gitdir appname
 	global file_states current_diff
 
 	if {![lock_index begin-update]} return
@@ -2419,13 +2420,17 @@ proc revert_helper {txt paths} {
 		set s "these $n files"
 	}
 
+	set reponame [lindex [file split \
+		[file normalize [file dirname $gitdir]]] \
+		end]
+
 	set reply [tk_dialog \
 		.confirm_revert \
-		"title" \
+		"$appname ($reponame)" \
 		"Revert unincluded changes in $s?
 
 Any unincluded changes will be permanently lost by the revert." \
-		questhead \
+		question \
 		1 \
 		{Do Nothing} \
 		{Revert Changes} \