--- a/Object.st	Tue Aug 09 06:39:03 2016 +0200
+++ b/Object.st	Wed Aug 10 07:04:17 2016 +0200
@@ -692,6 +692,7 @@
 ! !
 
 
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -3888,7 +3889,7 @@
 heightOn:aGC
     "return the height of the receiver, if it is to be displayed on aGC"
 
-    ^ (aGC font onDevice:aGC device) heightOf:(self displayString)
+    ^ aGC deviceFont heightOf:(self displayString)
 !
 
 printStringForPrintIt
@@ -3906,13 +3907,13 @@
 widthFrom:startIndex to:endIndex on:aGC
     "return the width of the receiver, if it is to be displayed on aGC"
 
-    ^ (aGC font onDevice:aGC device) widthOf:(self displayString) from:startIndex to:endIndex
+    ^ aGC deviceFont widthOf:(self displayString) from:startIndex to:endIndex
 !
 
 widthOn:aGC
     "return the width of the receiver, if it is to be displayed on aGC"
 
-    ^ (aGC font onDevice:aGC device) widthOf:(self displayString)
+    ^ aGC deviceFont widthOf:(self displayString)
 ! !
 
 !Object methodsFor:'double dispatching'!