diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f7ca8ab9b4..3dfc554119 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,8 @@
 Tue Jan 24 12:10:28 1995  Stu Grossman  (grossman@cygnus.com)
 
+	* gdbtk.tcl (create_registers_window):  Work around a radiobutton
+	widget bug to make Options|Natural button work.
+
 	* gdbtk.c (gdb_disassemble):  Fix problem with source+assembly and
 	g++ caused by out-of-order pc's.
 	* gdbtk.tcl (files_command):  Remove duplicate file names.  Also,
diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index 92f32b9ddf..f44dc741fd 100644
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -1411,20 +1411,20 @@ proc create_registers_window {} {
 	.reg.menubar.view.menu delete 0 last
 
 # Hex menu item
-	.reg.menubar.view.menu add radiobutton -variable reg_format \
-		-label Hex -value x -command {update_registers all}
+	.reg.menubar.view.menu add radiobutton -label Hex \
+		-command {set reg_format x ; update_registers all}
 
 # Decimal menu item
-	.reg.menubar.view.menu add radiobutton -variable reg_format \
-		-label Decimal -value d -command {update_registers all}
+	.reg.menubar.view.menu add radiobutton -label Decimal \
+		-command {set reg_format d ; update_registers all}
 
 # Octal menu item
-	.reg.menubar.view.menu add radiobutton -variable reg_format \
-		-label Octal -value o -command {update_registers all}
+	.reg.menubar.view.menu add radiobutton -label Octal \
+		-command {set reg_format o ; update_registers all}
 
 # Natural menu item
-	.reg.menubar.view.menu add radiobutton -variable reg_format \
-		-label Natural -value {} -command {update_registers all}
+	.reg.menubar.view.menu add radiobutton -label Natural \
+		-command {set reg_format {} ; update_registers all}
 
 # Config menu item
 	.reg.menubar.view.menu add separator