--- a/FontPanel.st	Thu Nov 27 02:47:30 2014 +0100
+++ b/FontPanel.st	Fri Nov 28 11:00:17 2014 +0100
@@ -939,7 +939,7 @@
         (combinedFilter isNil or:[combinedFilter value:fntDescr]) ifTrue:[
             family := fntDescr family.
             family isNil ifTrue:[
-                family := font name ? 'unnamed'
+                family := fntDescr name ? 'unnamed'
             ].
             (d at:family ifAbsentPut:[Set new]) add:fntDescr
         ]
@@ -1474,10 +1474,10 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.132 2014-11-27 01:47:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.133 2014-11-28 10:00:17 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.132 2014-11-27 01:47:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.133 2014-11-28 10:00:17 stefan Exp $'
 ! !