--- a/Text.st	Thu Aug 12 11:42:31 1999 +0200
+++ b/Text.st	Wed Aug 18 16:32:01 1999 +0200
@@ -1241,7 +1241,7 @@
 
     device := aGC graphicsDevice.
 
-    savedFont := aGC basicFont on:device.
+    savedFont := aGC basicFont onDevice:device.
 
     pos := 1.
     l := 0.
@@ -1319,6 +1319,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.60 1999-07-22 15:53:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.61 1999-08-18 14:32:01 cg Exp $'
 ! !
 Text initialize!