diff --git a/ChangeLog b/ChangeLog
index d875631cf..556bf5b3f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-06-20  Moritz Bunkus  <moritz@bunkus.org>
 
+	* mmg: new feature: Suggest a name for a new job based on the
+	output file name.
+
 	* mmg: new feature: Temporarily disaable 'always on top' if the
 	muxing or the job dialog are visible.
 
diff --git a/src/mmg/mmg.cpp b/src/mmg/mmg.cpp
index fdc9b0b43..9ee96510b 100644
--- a/src/mmg/mmg.cpp
+++ b/src/mmg/mmg.cpp
@@ -1498,7 +1498,8 @@ mmg_dialog::on_add_to_jobqueue(wxCommandEvent &evt) {
                     wxYES_NO) != wxYES))
     return;
 
-  description = wxT("");
+  description = tc_output->GetValue().AfterLast(wxT('/')).AfterLast(wxT('\\'));
+  description = description.AfterLast(wxT('/')).BeforeLast(wxT('.'));
   ok = false;
   do {
     description = wxGetTextFromUser(wxT("Please enter a description for the "