diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 463cf7ac15..000705858d 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2006-06-21  Andrew Stubbs  <andrew.stubbs@st.com>
+
+        * cli/cli-script.c (realloc_body_list): Zero new parts of body_list.
+
 2006-06-20  Joel Brobecker  <brobecker@adacore.com>
 
 	* GDB 6.5 released from GDB 6.5 branch.
diff --git a/gdb/cli/cli-script.c b/gdb/cli/cli-script.c
index 4f44477152..643eb74933 100644
--- a/gdb/cli/cli-script.c
+++ b/gdb/cli/cli-script.c
@@ -701,6 +701,7 @@ realloc_body_list (struct command_line *command, int new_length)
     xmalloc (sizeof (struct command_line *) * new_length);
 
   memcpy (body_list, command->body_list, sizeof (struct command_line *) * n);
+  memset (body_list + n, 0, sizeof (struct command_line *) * (new_length - n));
 
   xfree (command->body_list);
   command->body_list = body_list;