--- a/FontDescription.st	Tue Nov 17 14:30:07 2009 +0100
+++ b/FontDescription.st	Thu Nov 26 14:39:03 2009 +0100
@@ -1026,7 +1026,13 @@
 
     newFont flags:flags.
 
-    ^ newFont onDevice:self graphicsDevice.
+    "SR:
+     old code is commented below,
+     someone has forgotten to set the incoming argument device,
+     why using the device from the old font??? is this a mistake???
+     at least the naming of this method wants a new font on given device...."
+    ^ newFont onDevice:aDevice.
+"/    ^ newFont onDevice:self graphicsDevice.
 
    "Created: 28.3.1997 / 16:09:30 / cg"
 !
@@ -1476,11 +1482,11 @@
 !FontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.73 2009-11-10 16:34:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.74 2009-11-26 13:39:03 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.73 2009-11-10 16:34:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.74 2009-11-26 13:39:03 sr Exp $'
 ! !
 
 FontDescription initialize!