diff -r 57b363325368 -r 61f3f3a13b9e UIPainter.st
--- a/UIPainter.st	Tue Oct 20 00:03:57 2009 +0200
+++ b/UIPainter.st	Tue Oct 20 10:38:40 2009 +0200
@@ -4977,7 +4977,7 @@
         ^ self
     ].
         
-    (cls implements:aspect asSymbol) ifFalse:[
+    (cls includesSelector:aspect asSymbol) ifFalse:[
         (Dialog confirm:(resources 
                             stringWithCRs:'%1 does not implement %2.\\Create ?'
                             with:(cls name allBold)