--- a/Font.st	Wed Jul 20 11:54:49 2016 +0200
+++ b/Font.st	Wed Jul 20 11:54:58 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -52,7 +54,7 @@
     (therefore, those fonts can be used to draw on any GC)
 
     To get a device font, any font can be sent the message
-    'aFont on:aDevice' which returns an instance of Font which is
+    'aFont onDevice:aDevice' which returns an instance of Font which is
     associated to a device (it returns the receiver, if that is already
     associated to that device).
 
@@ -195,7 +197,7 @@
 
         ...
 
-        aFont := aFont on:aDevice.
+        aFont := aFont onDevice:aDevice.
         ...
         aFont widthOf:'hello'
         ...