--- a/DeviceGraphicsContext.st	Fri Oct 20 18:48:42 2006 +0200
+++ b/DeviceGraphicsContext.st	Mon Oct 23 10:39:33 2006 +0200
@@ -299,6 +299,7 @@
                 gcId notNil ifTrue:[
                     id := font fontId.
                     id notNil ifTrue:[
+                        deviceFont := font.
                         device setFont:id in:gcId
                     ]
                 ]
@@ -306,8 +307,8 @@
         ]
     ]
 
-    "Modified: 23.2.1996 / 17:01:06 / cg"
-    "Created: 23.2.1996 / 17:16:51 / cg"
+    "Created: / 23-02-1996 / 17:16:51 / cg"
+    "Modified: / 22-10-2006 / 14:11:37 / cg"
 !
 
 capStyle:aSymbol
@@ -3650,13 +3651,13 @@
     font notNil ifTrue:[
         font graphicsDevice == device ifTrue:[
             (fontId := font fontId) notNil ifTrue:[
+                deviceFont := font.
                 device setFont:fontId in:gcId
             ]
         ]
     ]
-        
-
-    "Modified: / 29.1.1998 / 12:55:24 / cg"
+
+    "Modified: / 22-10-2006 / 14:10:53 / cg"
 !
 
 initialize
@@ -3880,7 +3881,7 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.110 2006-10-20 11:24:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.111 2006-10-23 08:39:33 cg Exp $'
 ! !
 
 DeviceGraphicsContext initialize!