--- a/Font.st	Thu Feb 19 10:52:49 2009 +0100
+++ b/Font.st	Thu Feb 19 10:52:57 2009 +0100
@@ -1157,7 +1157,7 @@
     "return the height of the font in pixels -
      for st-80 compatibility"
 
-    ^ self height
+    ^ pixelSize ? self height
 ! !
 
 !Font::DeviceFontHandle class methodsFor:'documentation'!
@@ -1207,7 +1207,7 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.111 2009-02-18 17:56:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.112 2009-02-19 09:52:57 cg Exp $'
 ! !
 
 Font initialize!