diff --git a/git-gui b/git-gui
index d5738baf109d16eab62e1966e6192a8b35c11a38..2aa82781e95fa742f4b6526f8e251d0e2f2f9ee8 100755
--- a/git-gui
+++ b/git-gui
@@ -1954,6 +1954,15 @@ proc do_repack {} {
 	console_exec $w $cmd
 }
 
+proc do_fsck_objects {} {
+	set w [new_console "verify" "Verifying the object database"]
+	set cmd [list git fsck-objects]
+	lappend cmd --full
+	lappend cmd --cache
+	lappend cmd --strict
+	console_exec $w $cmd
+}
+
 set is_quitting 0
 
 proc do_quit {} {
@@ -2610,6 +2619,10 @@ if {!$single_commit} {
 		-command do_repack \
 		-font font_ui
 
+	.mbar.project add command -label {Verify Database} \
+		-command do_fsck_objects \
+		-font font_ui
+
 	if {$tcl_platform(platform) eq {windows}} {
 		.mbar.project add command \
 			-label {Create Desktop Icon} \