--- a/XftFontDescription.st	Wed Apr 30 01:51:18 2014 +0200
+++ b/XftFontDescription.st	Wed Apr 30 12:45:36 2014 +0200
@@ -865,8 +865,7 @@
      myself on aWorkstation. This does NOT try to look for existing
      or replacement fonts (i.e. can be used to get physical fonts)."
 
-    "/ Apparently, this is not needed.
-    self shouldImplement
+    ^ self onDevice:aWorkstation
 
     "Modified: / 02-01-2014 / 23:15:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (comment): / 04-01-2014 / 02:06:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -2036,11 +2035,11 @@
 !XftFontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.49 2014-04-27 21:32:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.50 2014-04-30 10:45:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.49 2014-04-27 21:32:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.50 2014-04-30 10:45:36 cg Exp $'
 ! !