--- a/Font.st	Sat Aug 12 13:20:01 2017 +0200
+++ b/Font.st	Sat Aug 12 13:22:38 2017 +0200
@@ -294,15 +294,6 @@
         ^ replacementFont fontId
     ].
     ^ fontId
-!
-
-graphicsDevice
-    "same as #device, for ST-80 compatibility naming.
-     Return the device I am associated with."
-
-    ^ device
-
-    "Created: 28.5.1996 / 18:39:53 / cg"
 ! !
 
 
@@ -1275,6 +1266,15 @@
     ^ direction
 !
 
+graphicsDevice
+    "same as #device, for ST-80 compatibility naming.
+     Return the device I am associated with."
+
+    ^ device
+
+    "Created: 28.5.1996 / 18:39:53 / cg"
+!
+
 maxAscii
     "squeak compatibility"