--- a/GraphicsMedium.st	Mon Aug 01 23:30:02 2016 +0100
+++ b/GraphicsMedium.st	Fri Sep 02 17:42:18 2016 +0100
@@ -782,6 +782,12 @@
     gc deviceClippingBounds:aRectangleOrNil
 !
 
+deviceFont
+    "return the current drawing font as a device font"
+
+    ^ self font onDevice:device.
+!
+
 drawableId
     "return the id of the drawable on the device"
 
@@ -816,7 +822,7 @@
      This should be redefined in some widget to perform an automatic
      redraw. See also: #basicFont:"
 
-    gc font:aFont.
+    gc basicFont:aFont.
     self changed:#font.
 !