diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 53a3eb711ab..fc3829ade6f 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2013-05-30  Tom Tromey  <tromey@redhat.com>
+
+	* m32r-rom.c (m32r_load): Call do_cleanups at all returns.
+
 2013-05-30  Tom Tromey  <tromey@redhat.com>
 
 	* mi/mi-main.c (list_available_thread_groups): Call do_cleanups.
diff --git a/gdb/m32r-rom.c b/gdb/m32r-rom.c
index aab59f0d547..5b27b606b98 100644
--- a/gdb/m32r-rom.c
+++ b/gdb/m32r-rom.c
@@ -167,6 +167,7 @@ m32r_load (char *filename, int from_tty)
   if (!(catch_errors (m32r_load_1, abfd, "Load aborted!\n", RETURN_MASK_ALL)))
     {
       monitor_printf ("q\n");
+      do_cleanups (cleanup);
       return;
     }
 #endif