diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index c3717be378..514b2c7fbc 100644
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,5 +1,9 @@
 1999-02-11  Martin Hunt  <hunt@cygnus.com>
 
+	* gdbtk-variable.c (variable_format): Enable binary format.
+
+1999-02-11  Martin Hunt  <hunt@cygnus.com>
+	
 	* gdbtk-hooks.c: Change ALL Tcl_Eval calls in hooks to
 	call report_error() if there are errors.
 
diff --git a/gdb/gdbtk-variable.c b/gdb/gdbtk-variable.c
index 09ff3609b9..f1e745568d 100644
--- a/gdb/gdbtk-variable.c
+++ b/gdb/gdbtk-variable.c
@@ -1185,7 +1185,7 @@ variable_format (interp, objc, objv, var)
       if (STREQN (fmt, "natural", len))
         var->format = FORMAT_NATURAL;
       else if (STREQN (fmt, "binary", len))
-        var->format = FORMAT_NATURAL;
+        var->format = FORMAT_BINARY;
       else if (STREQN (fmt, "decimal", len))
         var->format = FORMAT_DECIMAL;
       else if (STREQN (fmt, "hexadecimal", len))