--- a/XftFontDescription.st	Thu Nov 24 09:54:39 2016 +0100
+++ b/XftFontDescription.st	Thu Nov 24 09:55:48 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libview' }"
 
 "{ NameSpace: Smalltalk }"
@@ -660,13 +658,13 @@
 asNonXftFont
     |newFont|
 
-    newFont := FontDescription
-		    family:family
-		    face:face
-		    style:style
-		    size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
-		    sizeUnit:sizeUnit
-		    encoding:encoding.
+    newFont := Font
+                    family:family
+                    face:face
+                    style:style
+                    size:(sizeUnit == #px ifTrue:[pixelSize] ifFalse:[size])
+                    sizeUnit:sizeUnit
+                    encoding:encoding.
 
     ^ newFont
 ! !