--- a/Font.st	Fri Jan 10 16:05:26 1997 +0100
+++ b/Font.st	Fri Jan 10 16:06:32 1997 +0100
@@ -506,10 +506,10 @@
                                encoding:encoding.
     ].
     id notNil ifTrue:[
-        ('FONT: use alternative for ' , (self userFriendlyName)) infoPrintCR.
+        ('Font [info]: use alternative for ' , (self userFriendlyName)) infoPrintCR.
     ] ifFalse:[
         id := aDevice getDefaultFont.
-        ('FONT: use default for ' , (self userFriendlyName)) infoPrintCR.
+        ('Font [info]: use default for ' , (self userFriendlyName)) infoPrintCR.
     ].
     id isNil ifTrue:[
         "oops did not work - this is a serious an error"
@@ -522,7 +522,7 @@
     Lobby register:f.
     ^ f
 
-    "Modified: 20.5.1996 / 10:32:23 / cg"
+    "Modified: 10.1.1997 / 15:40:21 / cg"
 ! !
 
 !Font methodsFor:'instance release'!
@@ -1112,6 +1112,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.53 1996-10-22 17:55:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.54 1997-01-10 15:06:32 cg Exp $'
 ! !
 Font initialize!