--- a/Tools_ClassChecker.st	Thu Nov 12 17:25:46 2009 +0100
+++ b/Tools_ClassChecker.st	Thu Nov 12 17:25:59 2009 +0100
@@ -282,7 +282,7 @@
     checkedClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | 
         |img key name|
 
-        (mthd hasResource:#image) ifTrue:[
+        (mthd hasImageResource) ifTrue:[
            img := mthd valueWithReceiver:nil arguments:#().
            key := (Icon classVarAt:#KnownIcons) keyAtIdentityValue:img.
            key notNil ifTrue:[
@@ -847,5 +847,9 @@
 !ClassChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.13 2008-12-07 23:15:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.14 2009-11-12 16:25:59 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.14 2009-11-12 16:25:59 cg Exp $'
 ! !