diff --git a/ChangeLog.n b/ChangeLog.n
index 5604e5cfd64a316af179ece7e873265f3c24287e..773d2566bda401fb935d4f9884b040a166538326 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -3,6 +3,11 @@
 don't forget to change the version in utils/packages.lisp if you do anything
 user visible.
 *******************************************************************************
+2009-09-10  Andreas Fuchs  <afuchs@franz.com>
+
+	* tk/font.lisp: Fix (obvious, in retrospect) printer error in warning about missing
+	  charsets.
+
 2009-09-09  Andreas Fuchs  <afuchs@franz.com>
 
 	* tk/xm-defs.lisp: Add XmOUTPUT_ALL constant
diff --git a/tk/font.lisp b/tk/font.lisp
index 9584acda35af2564ce08715e3151f590f76778f4..4f5dafbd4683c46817f5d1d2aaa1614b1ecf87e9 100644
--- a/tk/font.lisp
+++ b/tk/font.lisp
@@ -189,7 +189,7 @@
    (created-for :initarg :created-for :accessor charsets-missing-from-fontset-created))
   (:report (lambda (c stream)
              (format stream
-                     "Couldn't find usable fonts for char sets~:{ ~A,~}"
+                     "Couldn't find usable fonts for char set ~A"
                      (charsets-missing-from-fontset-charsets c)))))
 
 (defmethod initialize-instance :after ((fs font-set) &key