--- a/FontMenu.st	Tue Oct 11 15:50:24 2016 +0200
+++ b/FontMenu.st	Tue Oct 11 16:23:27 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by eXept Software AG
               All Rights Reserved
@@ -691,9 +689,12 @@
 symbolicFontsMenu
     |symbolicFontSelectors selectors menu menuLabels menuItems|
 
-    symbolicFontSelectors := (applicationClass methodsWithAnyResource:#(fontSpec)) collect:[:each| each selector].
+    symbolicFontSelectors := (applicationClass methodsWithAnyResource:#(fontSpec)) 
+                                collect:[:each| each selector].
 
-    symbolicFontSelectors sort.
+    symbolicFontSelectors :=
+        (symbolicFontSelectors reject:[:nm | nm endsWith:'Small']) sort
+        , (symbolicFontSelectors select:[:nm | nm endsWith:'Small']) sort.
 
     selectors := Array new:symbolicFontSelectors size withAll:#fontSymbol:.
     menuLabels := symbolicFontSelectors, #('-' 'Other...').