--- a/Text.st	Mon Aug 08 19:42:37 2016 +0200
+++ b/Text.st	Tue Aug 09 12:43:08 2016 +0200
@@ -1731,7 +1731,7 @@
 heightOn:aGC
     "return the number of device units, required on aGC's device"
 
-    ^ (aGC font onDevice:aGC device) heightOf:string
+    ^ aGC deviceFont heightOf:string
 
     "Created: 12.5.1996 / 11:02:03 / cg"
 !