--- a/UIPainter.st	Mon Oct 12 09:35:01 2009 +0200
+++ b/UIPainter.st	Mon Oct 12 18:52:43 2009 +0200
@@ -5035,9 +5035,9 @@
         ^ self
     ].
 
-    implementingClass := (cls whichClassImplements:aspect asSymbol).
+    implementingClass := (cls whichClassIncludesSelector:aspect asSymbol).
     implementingClass isNil ifTrue:[
-        implementingClass := (cls class whichClassImplements:aspect asSymbol).
+        implementingClass := (cls class whichClassIncludesSelector:aspect asSymbol).
     ].
     implementingClass isNil ifTrue:[
         answer := OptionBox
@@ -6762,6 +6762,10 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !
 
 UIPainter initialize!