--- a/SimpleView.st	Tue Feb 12 18:26:00 2002 +0100
+++ b/SimpleView.st	Mon Feb 25 21:00:34 2002 +0100
@@ -1160,10 +1160,10 @@
     self changed:#style.
     SimpleView updateStyleCache.
     SimpleView allSubclassesDo:[:aClass |
-	aClass defaultFont:nil.
-	(aClass class implements:#updateStyleCache) ifTrue:[
-	    aClass updateStyleCache
-	].
+        aClass defaultFont:nil.
+        (aClass class includesSelector:#updateStyleCache) ifTrue:[
+            aClass updateStyleCache
+        ].
     ]
 
     "
@@ -9274,6 +9274,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.432 2002-02-11 19:59:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.433 2002-02-25 20:00:34 cg Exp $'
 ! !
 SimpleView initialize!