--- a/Tools__ClassChecker.st	Fri Nov 30 14:25:59 2012 +0000
+++ b/Tools__ClassChecker.st	Fri Nov 30 17:23:39 2012 +0000
@@ -622,6 +622,8 @@
 
     mClass := aMethod mclass.
     mSelector := aMethod selector.
+    mClass isNil ifTrue:[^ true].
+    mSelector isNil ifTrue:[^ true].
 
     protocol := aMethod category.
     protocol isNil ifTrue: [^true].
@@ -637,11 +639,11 @@
     superProtocol isNil ifTrue: [^true].
 
     self 
-	rememberBadMethod:aMethod
-	key:#checkProtocols
-	info:('#' , mSelector allBold , ' is classified under "' , protocol allBold , '" in '
-	      , mClass name , ' and under "' , superProtocol allBold , '" in ' , implClass name
-	      , ' (#checkProtocols)')
+        rememberBadMethod:aMethod
+        key:#checkProtocols
+        info:('#' , mSelector allBold , ' is classified under "' , protocol allBold , '" in '
+              , mClass name , ' and under "' , superProtocol allBold , '" in ' , implClass name
+              , ' (#checkProtocols)')
 
     "Modified: / 18.8.2000 / 23:13:53 / cg"
 !
@@ -916,13 +918,13 @@
 !ClassChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__ClassChecker.st 8059 2012-09-27 20:08:20Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.17 2012/11/06 17:49:11 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.16 2010/05/18 13:19:24 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.17 2012/11/06 17:49:11 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__ClassChecker.st 8059 2012-09-27 20:08:20Z vranyj1 $'
+    ^ '$Id: Tools__ClassChecker.st 8074 2012-11-30 17:23:39Z vranyj1 $'
 ! !