--- a/FontPanel.st	Mon Mar 17 10:07:50 2014 +0100
+++ b/FontPanel.st	Mon Mar 17 10:45:10 2014 +0100
@@ -905,7 +905,7 @@
             currentEncoding := enc.
             fontName := deviceFont fullName.
             (font isKindOf:XftFontDescription) ifTrue:[fontName := fontName,' (xft)'].
-            previewField contents:(self class defaultSampleStringForEncoding:enc).
+            previewField contents:(font userFriendlyName,'\\' withCRs,(self class defaultSampleStringForEncoding:enc)).
         ] ifFalse:[
             previewField contents:nil.
             encodingLabel label:nil.
@@ -1280,10 +1280,10 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.117 2014-03-17 09:07:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.118 2014-03-17 09:45:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.117 2014-03-17 09:07:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.118 2014-03-17 09:45:10 cg Exp $'
 ! !