diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index 8bcc3910ae..7873d965df 100644
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,8 @@
+Mon Jan 26 11:37:55 1998  Keith Seitz  <keiths@onions.cygnus.com>
+
+	* gdbtk.c (gdb_actions_command): Make note of next action
+	before freeing all references to it.
+
 Sat Jan 24 23:52:08 1998  Martin M. Hunt  <hunt@cygnus.com>
 
 	* gdbtk.c: Merge from Foundry branch.
diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index 2697ff4ef6..63cb938e0f 100644
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -2708,8 +2708,9 @@ gdb_actions_command (clientData, interp, objc, objv)
     }
 
   /* Free any existing actions */
-  for (temp = tp->actions; temp != NULL; temp = temp->next)
+  for (temp = tp->actions; temp != NULL; temp = next)
     {
+      next = temp->next;
       if (temp->action)
         free (temp->action);
       free (temp);