--- a/Font.st	Thu May 30 16:35:03 1996 +0200
+++ b/Font.st	Thu May 30 18:53:26 1996 +0200
@@ -797,12 +797,12 @@
      For fixed fonts, this is the same as minWidth or maxWidth (or any character)."
 
     device == aDevice ifTrue:[
-        ^ descent + ascent
+        ^ self width
     ].
     ^ (self on:aDevice) width
 
     "Created: 30.4.1996 / 16:42:28 / cg"
-    "Modified: 30.4.1996 / 16:43:50 / cg"
+    "Modified: 30.5.1996 / 18:53:13 / cg"
 ! !
 
 !Font methodsFor:'queries-deviceFonts'!
@@ -1083,6 +1083,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.45 1996-05-28 16:45:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.46 1996-05-30 16:53:26 cg Exp $'
 ! !
 Font initialize!