diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd5cb9bcac7..0b4a7aaea81 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-23  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* international/mule-diag.el (mule-diag): Insert a newline after
+	each fontset description.
+
 2011-09-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* simple.el (delete-trailing-whitespace):
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index d9ac587231e..cccf65b8051 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1139,7 +1139,8 @@ system which uses fontsets)."
 	(insert "Fontset-Name\t\t\t\t\t\t  WDxHT Style\n")
 	(insert "------------\t\t\t\t\t\t  ----- -----\n")
 	(dolist (fontset (fontset-list))
-	  (print-fontset fontset t)))
+	  (print-fontset fontset t)
+	  (insert "\n")))
       (help-print-return-message))))
 
 ;;;###autoload