--- a/Font.st	Thu Feb 16 04:07:02 1995 +0100
+++ b/Font.st	Thu Feb 16 17:29:36 1995 +0100
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Font.st,v 1.13 1995-02-06 00:36:10 claus Exp $
+$Header: /cvs/stx/stx/libview/Font.st,v 1.14 1995-02-16 16:29:34 claus Exp $
 '!
 
 !Font class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Font.st,v 1.13 1995-02-06 00:36:10 claus Exp $
+$Header: /cvs/stx/stx/libview/Font.st,v 1.14 1995-02-16 16:29:34 claus Exp $
 "
 !
 
@@ -432,7 +432,7 @@
     "two fonts are considered equal, if the font-name components are;
      independent of the device, the font is on"
 
-    (aFont isKindOf:Font) ifTrue:[
+    (aFont species == self species) ifTrue:[
 	(size == aFont size) ifTrue:[
 	    (family = aFont family) ifTrue:[
 		(face = aFont face) ifTrue:[