diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index c6465a01271..3a2268986dc 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2010-04-16  Stan Shebs  <stan@codesourcery.com>
+
+	* tracepoint.c (trace_variable_command): Run a cleanup.
+
 2010-04-16  Pierre Muller  <muller@ics.u-strasbg.fr>
 
 	* p-lang.c (pascal_one_char): Do not restrict C to 0..255 range.
diff --git a/gdb/tracepoint.c b/gdb/tracepoint.c
index bf328fd98ff..2771ee7795c 100644
--- a/gdb/tracepoint.c
+++ b/gdb/tracepoint.c
@@ -365,6 +365,7 @@ trace_variable_command (char *args, int from_tty)
       tsv->initial_value = initval;
       printf_filtered (_("Trace state variable $%s now has initial value %s.\n"),
 		       tsv->name, plongest (tsv->initial_value));
+      do_cleanups (old_chain);
       return;
     }