diff --git a/git-gui b/git-gui
index 48e781dd3011451264b4d4c0ea11ee127c36476e..9bfed1f6a98184cc8e4df1b06f1201bfc1eca8b2 100755
--- a/git-gui
+++ b/git-gui
@@ -1634,7 +1634,7 @@ proc populate_branch_menu {m} {
 	foreach b $all_branches {
 		$m add radiobutton \
 			-label $b \
-			-command [list do_switch_branch $b] \
+			-command [list switch_branch $b] \
 			-variable current_branch \
 			-value $b \
 			-font font_ui
@@ -1643,6 +1643,10 @@ proc populate_branch_menu {m} {
 	}
 }
 
+proc switch_branch {b} {
+	error "NOT IMPLEMENTED"
+}
+
 ######################################################################
 ##
 ## remote management