--- a/FontPanel.st	Thu Dec 17 19:33:04 2015 +0100
+++ b/FontPanel.st	Thu Dec 17 19:33:22 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -160,7 +158,7 @@
 defaultLatin1SampleString
     "return the sample latin1 preview text"
 
-    ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
+    ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
 !
 
 defaultSampleStringForEncoding:enc
@@ -204,8 +202,8 @@
     |t|
 
     t := (self defaultAsciiSampleString) , '
-diaresis: äöüÄÖÜß
-accent: éèêåÅ
+diaresis: äöüÄÖÜß
+accent: éèêåÅ
 special: ' ,  #(16r20AC) asUnicodeString , '
 math: ' ,  #(16r2200 16r2203 16r221E 16r2208 16r2209) asUnicodeString , '
 cyrillic: ' ,  #(16r440 16r443 16r441 16r441 16r43A 16r438 16r439 16r20 16r44F 16r437 16r44B 16r43A) asUnicodeString , '
@@ -1370,7 +1368,7 @@
     faces do:[:aFace |
         styles := (self getStylesInFamily:currentFamily face:aFace filtering:combinedFilter) ? #().
         styles do:[:aStyle |
-            aFace isEmpty ifTrue:[
+            aFace isEmptyOrNil ifTrue:[
                 list add:(aStyle)
             ] ifFalse:[
                 list add:(aFace , '-' , aStyle)